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T1-99/4A 


La découverte du TI-99/4A 

par Frédéric Lévy et Dominique Schraen 

Une approche progressive et attrayante pour les débutants 
qui veulent apprendre la programmation en Basic du 
T1-99/4A. Is commenceront par apprendre les instructions 
classiques du Basic telles qu’elles existent sur le TI-99/4A. 
Ils découvriront ensuite les possibilités graphiques et 
musicales de cet ordinateur grâce à de nombreux exemples 
et exercices. 
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Le TI-99/4A à l'affiche 

par Jean-François Sehan 

Cet ouvrage, qui s'adresse aux possesseurs de TI-99/4A, 
regroupe 20 programmes à caractère utile, familial ou 
ludique. 

Du papier peint à la cuisine en passant par le Baccara et 
la fête foraine, chaque programme est accompagné d'un 
organigramme, d'une liste de variables et d'une explication 
de chaque ligne Basic, pour l'adaptation éventuelle à 
d'autres ordinateurs. 
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Exercices pour TI-99/4A 

par Frédéric Lévy 

Ce livre est destiné à tous ceux qui connaissent les instruc- 
tions Basic du TI-99/4A et qui ne maîtrisent pas encore 
la programmation. Ce recueil d'exercices est une invitation 
à l'analyse et à la programmation de problèmes simples et 
fréquemment rencontrés (calculs, tris, traitement de texte.…). 
L'énoncé de chaque exercice est suivi de son analyse, une 
ou deux solutions commentées sont proposées. 
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DES CASSETTES 


Tous les programmes publiés dans 
notre revue ont été réunis sur une 
cassette avant d’être listés. Dans le 
louable souci de vous épargner l’ef- 
fort de les taper, nous avons recopié 
cette cassette et nous en commercia- 
lisons les copies au prix de 55 Frs 
TTC, fais d'envoi compris. 


Pour le même prix unitaire, vous 
pourrez aussi acquérir deux cassettes 
contenant un autre choix de pro- 
grammes : 


CASSETTE 99A 


MINEUR : un personnage hérite 
d’une mine d’or qu’il souhaite reven- 
dre. Pour cela, il doit prouver qu’elle 
contient bien du métal précieux en 
en rapportant une quantité minimale. 
Il va donc descendre dans cette 
mine, ceuser des galeries et tenter de 
trouver parmi les veines qui se pré- 
sentent à lui celles qui sont aurifères. 


Une multitude d’ennuis peuvent lui 
arriver : l’une des veines peut être en 
fait une nappe d’eau qui va inonder 
toutes les galeries d’un niveau infé- 
rieur à celui où il se trouve. Ou bien, 
elle est constituée de rochers durs à 
creuser, etc. 


Ce programme est écrit en Basic sim- 
ple et est donc accessible à partir de 
la configuration minimale. 


PRET : le programme du calcul de 
prêt publié dans ce numéro dans 


l’article Programmes d’aide à la dé- 
cision” se limite à constituer un écran 
contenant les informations. Ceux qui 
possèdent une imprimante peuvent 
en obtenir plus. Le programme que 
nous publions ici réalise, sur impri- 
mante, le tableau d'amortissement 
détaillé. Il permet ainsi de connaître 
pour chaque mensualité le montant 
des intérêts, de l’assurance et le capi- 
tal restant dû. 


Ce programme est écrit en Basic 
étendu et fonctionne avec une impri- 
mante. 


DIVISION : s’il n’y a aucune difficulté 
particulière à réaliser le quotient de A 
par B, il est en revanche plus compli- 
qué d’obtenir un résultat comportant 
plusieurs centaines de décimales. Ce 
programme réalise cette opération, 
en vous permettant de choisir le 
nombre de décimales. Il est écrit en 
Basic simple et affiche ses résultats 
sur l'écran. 


ELECTRONIQUE : quelle est la ré- 
sistivité d’un ensemble de résistances 
montées en parallèle, ou, connaissant 
l’une des résistances, quelle doit être 
la valeur de la seconde pour que 
l'ensemble monté en série ait une 
valeur donnée ? 


Ce programme, écrit en Basic simple, 
réalise ce genre d'opérations non 
seulement pour les résistances mais 
aussi pour les condensateurs et les 
inductances. Il est indispensable si, 
par exemple, vous voulez bricoler 
votre TI-99. 
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CASSETTE 99B 


YAHTZEE : un magnifique pro- 
gramme, en provenance des Etats- 
Unis, que nous avons traduit en fran- 
çais. L'ordinateur jette les cinq dès, 
puis rejette deux fois de suite ceux 
que vous décidez de ne pas conser- 
ver. Lorsque vous avez réalisé l’une 
des figures désirées, vous déplacez 
une flèche pour faire marquer les 
points là où il le faut. L'illustration 
musicale est magnifique ! 


Ce programme est en Basic simple et 
ne nécessite donc que la configura- 
tion de base. 


CHARDEF : un programme d’aide à 
la programmation qui nous vient de 
nos amis du club Tisoft-Home de 
Bruxelles. Vous créez un dessin à 
l'écran et il indique automatiquement 
les codes correspondant à ce dessin. 


Ce programme est lui aussi en Basic 
simple. 


REGRESSION LINEAIRE : ce pro- 
gramme, en anglais, vous demande 
combien de points vous voulez étu- 
dier puis les coordonnées de ces 
points. En réponse, il vous fournit 
l'équation de régression (F(x)=A+Bx 
x), le coefficient de détermination, le 
coefficient de corrélation et l'écart 
moyen des estimations. Il demande 
ensuite une valeur de x et calcule la 
valeur correspondante de y. 


Il s’agit là encore d’un programme 
en Basic simple, donc accessible avec 
seulement la console et le magnéto- 
phone à cassettes. 


BON DE COMMANDE 


Je désire recevoir la cassette 
[_]99 A : Mineur, Prêt, Division, Electronique 
[]99 B : Yahtzee, Chardef, Régression linéaire 


Ces tarifs comprennent l’envoi postal en France Métropolitaine et CEE (voie aérienne exceptée) 


Envoi par avion : nous consulter 


Envoyez ce bon de commande et votre règlement à : 


Editions MEV - 49 rue Lamartine - 78000 Versailles 
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Editorial 


Nous sommes heureux de vous présenter le premier numéro de ‘99 magazine”. Cela fait maintenant 
plusieurs mois que nous préparons le lancement de cette revue. Comme nous, vous avez certainement 
dû souffrir parfois de manquer de renseignements, vous avez cherché des idées de programmes, vous 
avez souhaité connaître l'utilité de tel ou tel module. 


799 magazine” est une revue d'utilisateurs du TI-99, dans laquelle sont publiés des programmes, des 
exemples d'utilisation, des articles pédagogiques, des bancs d'essai, … Nous nous. sommes fixé pour 
objectif de panacher dans chaque numéro les niveaux des articles, ainsi que les langages utilisés. 


Les nombreux programmes que vous trouverez dans chaque numéro sont disponibles sur une cassette 
d'accompagnement vendue par correspondance. Elle est commercialisée exclusivement en vente di- 
recte, afin que son prix puisse être le plus bas possible. Vous connaissez le prix habituel de vente des 
programmes sur cassette ; comparez... Si nous vendions les cassettes dans les boutiques, leur prix serait 
sensiblement plus élevé; c'est pourquoi nous les vendons seulement par correspondance. Attention : il y 
a eu une erreur dans la publicité parue dans l'Ordinateur Individuel; nous vendons une cassette d’ac- 
compagnement, et non une disquette ! 


Afin de satisfaire votre grande soif de programmes, nous vous proposons aussi deux cassettes compor- 
tant chacune plusieurs programmes. Ces cassettes, baptisées ‘’créativement”’ 99-A et 99-B sont le début 
d’une série qui s’enrichira à chaque numéro. 


Nous vous prions d’avance de nous pardonner s’il y a des erreurs dans ce numéro : un porte-docu- 
ments contenant toutes les corrections a été volé dans la voiture de Didier Bicking, et le peu de temps 
dont nous avons disposé pour les reconstituer et sortir le numéro 1 pour Micro-Expo n'a probablement 
pas été suffisant pour retrouver toutes les corrections prévues. 


La qualité de 99” dépend de vous : nous attendons toutes vos contributions, qui peuvent être en- 
voyées sur cassette ou disquette, avec le texte d'accompagnement sur papier et éventuellement en 
traitement de texte. De plus, n'hésitez pas à nous écrire pour nous faire part de votre impression et de 
vos suggestions pour 99”. Si vous désirez une réponse, il est préférable de joindre une enveloppe 
timbrée ; cela nous facilite le travail et, partant, nous rend plus disponibles. 


Trois contributions de taille occuperont sans doute une part importante de vos loisirs : tout d’abord celle 
de Edouard Jouan qui à testé le module Music Maker. Il commente aussi le programme du jeu du 
Pendu qui nous a été gracieusement donné par le club Tisoft-Home de Bruxelles, ainsi que celui du 
dernier Robot, de même provenance. 


Didier Bicking, collaborateur permanent de cette revue, a commencé par déballer son premier TI- 
99/4A et vous donne ses impressions à ce sujet. Îl a ensuite testé le module de Gestion Personnelle de 
Fichiers et écrit deux programmes d'aide à la décision qu'il vous propose dans un troisième article. 


Robert Peltier et son adorable épouse ont deux jumeaux très mignons mais un peu ‘’fougueux”! 
Pourtant, il souhaite les faire accéder à l'ordinateur tout en les tenant éloignés du clavier... Il a donc 
bricolé un joystick et vous en expose les principes et la technique. Il a aussi écrit un programme très 
original de jeu pédagogique. Le sujet traité dans ce programme est l'histoire de France, mais le même 
type de programme peut être utilisé pour n'importe quel autre sujet. 


Denise Amrouche vous propose deux programmes de jeu de sa composition : le jeu de l’Alphabet et 
les tours de Hanoï Catherine Berdonneau, spécialiste du LOGO, vous présente ce langage particu- 
lièrement destiné à faciliter l'accès de jeunes enfants aux techniques de la programmation. Jean Sahal 
détaille, quant à lui, les avantages du Basic Etendu. 


Roger Didi vous apporte un très important article d'initiation au Basic tandis que Bernard Braun à 
épluché le fonctionnement de l'instruction CALL KEY. Alexandre Duback présente un programme 
musical en provenance de Bruxelles, mais, surtout, il vous explique (un peu tard peut-être !) pourquoi 
vous avez acheté un TI-99. 


Hervé Thiriez vous aide à convertir pour le TI-99 des programmes rédigés pour Apple. Simon 
Tcheke vous montre comment procéder, en Basic, pour gérer des fichiers. Enfin, Gilbert Arribet, à 
l’aide d’un programme, transforme son TI-99 en harmonium. Il vous expose ce programme en plusieurs 
étapes. 


Hervé Thiriez 


Rédacteur en Chef-Directeur de la Publication : Hervé Thiriez. Rédacteur en Chef-Adijoint : Didier Bic- 
king. Comité de Rédaction : Thomas Coppens, Roger Didi. Maquette : Jacques Vincent. Dessins : Laurent 
Bidot. Rédacteurs : Denise Amrouche, Gilbert Arribet, Catherine Berdonneau, Bernard Braun, Alexandre Duback, 
Edouard Jouan, Robert Peltier, Jean Sahal, Simon Tcheke. 


Régie Publicitaire : Force 7, Anne Jourdan, 39 rue de la Grande-aux-Belles, 75483 Paris Cedex 10. Tél. : (1) 
238.66.10. 

Diffusion auprès des boutiques et librairies : Editions du PSI, 44-51, rue Jacquard, BP 86, 77400 Lagny-sur- 
Marne. Composition : Télécompo, 13-15 avenue du Petit Parc, 94300 Vincennes. Impression : Imprimerie 
Rosa, 47, avenue de Paris, 94300 Vincennes. Tél. : (1) 328.18.63. 





‘)=) MAGAZINE n° 1 


MUSIC MAKER 


à l’essai 


Le MUSIC-MAKER est un module 
commercialisé par Texas-[Instruments 
au prix de 250 F. Il contient un pro- 
gramme dont le but est de vous as- 
sister dans la composition musicale. 


La mise en marche du module est 
tout à fait étudiée pour mettre l’utili- 
sateur en appétit: un morceau à 
deux voies sonores de J.S. Bach est 
joué alors qu’apparaît sur l’écran une 
portée avec des notes. Cela dure en- 
viron 30 secondes, après quoi l’ordi- 
nateur demande si vous voulez char- 
ger un fichier musical ou créer une 
nouvelle composition, soit par la mé- 
thode graphique, soit en mode tradi- 
tionnel. 


Dans ce dernier cas, il vous demande 
combien de dièses ou de bémol vous 
voulez disposer à la clé (ce qui per- 
met de ne pas composer toujours en 
do majeur). Les signes de tonalité 
sont disposés dans l’ordre normal du 
solfège : fa do sol ré la mi si pour les 
dièses et si mi la ré sol do fa pour les 
bémols. Le compositeur choisit en- 
suite la mesure, mais seuls 1/4, 2/4, 
3/4 et 4/4 sont possibles. Un air en 
mesure 9/8, par exemple, devra 
donc être réécrit pour pouvoir entrer 
dans ce cadre. Enfin, le compositeur 
choisit la vitesse d'exécution de la 
musique par une valeur de 1 à 30. 


Pour composer une musique, cela 
est à la fois simple et compliqué : 
deux portées sont affichées à l'écran, 
une pour la clé de sol (les notes 
aiguës) et l’autre pour la clé de fa 
(les notes graves). A la droite de ces 
deux portées sont présentés les 
signes musicaux disponibles : ronde, 
blanche, noire, croche, double-cro- 
che, silence, demi-silence, soupir, 
demi-soupir, dièse et bémol. 


En-dessous des signes, trois chiffres 
(1, 2 et 3) permettent de déterminer 
laquelle des trois voies devra être 
écrite. Trois autres chiffres permettent 
de faire jouer immédiatement ce que 
lon vient d'écrire, pour l’une des 
voies seulement ou pour toutes celles 
qui ont été écrites. Un autre menu 
nous propose, selon le cas, soit de 
recopier ce qui a été écrit dans l’une 
des pages précédentes, soit d’effacer 
ce que l’on vient d'écrire pour l’une 
ou plusieurs des voies musicales. 


Enfin, un dernier menu offre le choix 
suivant : 


e PROC'D pour passer à la page 
suivante, 

e REDO pour revenir à la page pré- 
cédente, ‘ 


Edouard Jouan 


e BACK pour revenir au menu de 
départ. 

Dans les trois cas, la page qui figure 

à l'écran est mémorisée et il sera 

possible de la retrouver. 


Comment procède le compositeur ? 
Un curseur est mis à sa disposition et 
il choisit en premier lieu celle des 
trois voies pour laquelle il va écrire. Il 
positionne le curseur sur le numéro 
de la voie et appuie sur ENTER. Il 
choisit ensuite le signe musical qu'il 
veut disposer dans la portée, toujours 
en lui superposant le curseur et en 
faisant ENTER. 

Le signe musical choisi est alors re- 
présenté à la gauche de la partition, 
entre les deux portées. Le composi- 
teur déplace ce signe à l’aide des 
quatre touches fléchées (E, S, D ou 
X), puis appuie sur ENTER. La note 
est alors jouée, ce qui permet en fait 
d'entendre la musique au fur et à 
mesure qu’on la compose. 


La difficulté intervient lorsque la note 
suivante n’est pas représentée par le 
même signe, par exemple lorsque 
l’on vient de mettre une noire et qu'il 
faut maintenant une croche. Il faut 
alors déplacer le curseur sur le nou- 
veau signe et faire ENTER : le signe 
choisi vient sur la portée en superpo- 
sition du dernier signe écrit, mais 
sans effacer celui-ci. La même diffi- 
culté se présente lorsqu'il faut altérer 
une note, c’est-à-dire la munir d’un 
dièse ou d’un bémol. Il faut en effet 
écrire la note, aller chercher avec le 
curseur le signe d’altération, faire une 
fois ENTER pour amener ce signe 
sur la dernière note écrite et encore 
une fois ENTER pour enregistrer l’al- 
tération, puis ramener le curseur sur 
le prochain signe et refaire ENTER. 
Ce genre d'opération est très long et 
fastidieux. 


Une fois la première voie écrite, le 
compositeur peut déplacer le curseur 
pour aller dans le premier menu indi- 
quer qu’il va maintenant composer la 
deuxième ou la troisième voie. L’or- 
dre de composition des voies est 
libre. 


Un trait sympathique de ce pro- 
gramme réside dans une grille pré- 
sentée au bas de l’écran. Cette grille 
se remplit au fur et à mesure que les 
notes sont disposées dans la portée. 
Il est ainsi possible de visualiser la 
durée de chaque note. De la sorte, le 
programme rend impossible l'écriture 
d’une note pour une voie si la note 
précédente de la même voie n’est 
pas terminée. 





Chaque page présentée à l'écran re- 
présente une mesure. Le composi- 
teur écrit alors cette mesure pour les 
trois voies, puis sélectionne PROC’D 
dans le dernier menu pour passer à 
la page suivante. Avant cela, il a la 
possibilité de faire jouer les notes 
qu’il voit à l’écran, individuellement 
pour chaque voie ou collectivement 
pour les trois voies. En revanche, si 
l’une des notes ne lui convient pas, il 
ne peut pas la modifier isolément : il 
doit effacer toutes les notes de la me- 
sure dans la voie considérée, puis les 
réécrire en prenant bien garde cette 
fois de ne pas se tromper ! 


Le fichier musical ainsi créé peut 
bien entendu être sauvegardé, soit 
sur disque, soit sur cassette, pour 
être rappelé à une date ultérieure. 


La composition en mode graphique 
se fait dans un système de coordon- 
nées X,Y : le compositeur indique la 
durée de chaque note (celle-ci sera 
constante pour toute la composition : 
il faut donc choisir la durée la plus 
courte et la marquer plusieurs fois 
pour les notes longues), puis il place 
son pointeur à la hauteur souhaitée 
dans le graphe et fait ENTER. La 
composition à trois voies est possible 
ici aussi. En outre, un second graphe 
permet de faire évoluer séparément 
le volume de chacune des trois voies. 
Enfin, dans ce mode graphique, il est 
possible d'obtenir des quarts ou des 
dizièmes de ton : une option permet 
d'adopter un mode continu de sorte 
que la composition sera indépen- 
dante des fréquences prédéterminées 
pour les notes de la gamme classi- 
que. 


Nous avons nous-mêmes essayé de 
créer avec ce module quelques 
compositions musicales. Dans un 
premier temps, nous avons écrit un 
canon à trois voies sur le thème de 
Frère Jacques. Il n’v a eu là aucun 
problème. En revanche, nous avons 
voulu transcrire des Inventions à 
deux ou trois voies de Bach et là, 
nous avons rencontré un obstacle in- 
surmontable : Bach a malheureuse- 
ment dépassé les possibilités du 
Music-Maker en écrivant des notes 
soit trop hautes, soit trop basses. Il 
aurait quand même pu y penser ! 


En fait les prétentions de ce module 
se réduisent bien à des compositions 
simples : les contraintes qu’il présente 
amoindrissent sensiblement les possi- 
bilités mêmes de l’ordinateur dans le 
domaine musical. Cependant, pour 
des compositeurs débutants, par 
exemple un élève de première année 
de Conservatoire, il illustre parfaite- 
ment bien le solfège qui devient tout 
à fait compréhensible. Les néophytes 
de la composition musicale trouve- 
ront dans le Music-Maker une assis- 
tance non négligeable. 
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Pouquoi acheter 


un TI-99/4A ? 


Par définition, 99 Magazine s'adresse 
à tous les possesseurs d'ordinateurs 
familiaux Texas Instruments ou 
compatibles. N'oublions cependant 
pas ceux qui, n'ayant pas encore 
plongé, se demandent ‘Pourquoi 
donc en achèterais-je un ?”. 


Cette interrogation dissimule en fait 
deux questions distinctes, auxquelles 
il est raisonnable de répondre sépa- 
rément : 


"Pourquoi un microordinateur fami- 
lial” 

Le cas échéant, pourquoi un TlI- 
99/4A ?” 


L'intérêt 
d’un microordinateur 
familial. 


De nombreuses raisons ont été avan- 
cées pour justifier l'achat d'un 
micro” familial : familiarisation avec 
l'informatique, aspects ludiques (en 
bon français, les jeux...), gestion fa- 
miliale, auto-formation, etc. 


Familiarisation 
avec l’informatique 


Je placerai en premier lieu le critère 
de familiarisation avec l’informati- 
que : nous nous trouvons, qu'on le 
veuille ou non, dans une société déjà 
fortement informatisée, et qui le de- 
vient un peu plus chaque jour. Il est 
vital que les enfants apprennent, ne 
serait-ce que par osmose, ce qu'est 
un ordinateur, ses possibilités et ses 
limites. 


D'ici quelques années, il ne se trou- 
vera pas de bureau sans micro ou 
terminal d'ordinateur. D'ici une quin- 
zaine d'années, de très nombreuses 
familles, dans les pays occidentaux, 
posséderont au moins un micro. La 
puce a déjà envahi l’électro-ména- 
ger ; elle pénètre actuellement dans 
les voitures. Peu d'appareils s'en pas- 
seront dans les années à venir ! 


Pour toutes ces raisons, il est impor- 
tant que nos enfants aient au- 
jourd’hui l’occasion de se familiariser 
avec l'ordinateur. Quelle meilleure 
occasion pour cela que d’en avoir un 
à domicile ? 


Aspects ludiques 


Tout ce que font les jeux vidéo peut 
se faire, et en mieux, sur microordi- 
nateur. De plus, les micros permet- 
tent l’utilisation de jeux beaucoup 
plus variés et interactifs. Qu'il s’agisse 
de jeux à un ou à plusieurs joueurs, 
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Alexandre Duback 


de jeux d’adresse ou de réflexion, de 
jeux d’aventures, tout est possible. 


En outre, contrairement à ce qui se 
passe avec les jeux vidéo, on peut 
programmer ses propres jeux avec 
un micro familial. La participation au 
jeu peut ainsi revêtir un rôle nette- 
ment plus actif. 


Gestion familiale 


Il s’agit là un peu de l'argument 
"tarte à la crème”. Il n’est pas si 
commode de mettre sa gestion fami- 
liale sur ordinateur: beaucoup de 
dépenses interviennent à des mo- 
ments où l’on n’a ni le temps ni la 
motivation de noter le montant et 
l’objet de la dépense. Or, ces rensei- 
gnements sont nécessaires pour un 
suivi détaillé du budget familial. De 
même, la mémorisation des recettes 
ou des menus est possible, mais sou- 
vent de peu d'intérêt pratique. 


Par contre, le contrôle du compte en 
banque peut s'effectuer de façon net- 
tement plus commode. L'utilisation 
d’un traitement de texte pour tout le 
courrier est bien pratique pour ceux 
qui écrivent souvent. Enfin, le re- 
cours à une ‘base de données” pour 
gérer un fichier trouve de nombreu- 
ses applications pratiques: gestion 
d’un agenda, fichier de disques ou 
de cassettes, bibliothèque, … 


Cependant, je ne considère pas les 
utilisations de l’ordinateur en gestion 
familiale comme étant une des meil- 
leures raisons objectives d’achat. 


Auto-formation 


Voilà un domaine où les possibilités 
de l'ordinateur familial sont à peine 
exploitées aujourd’hui. L'ordinateur 
est un répétiteur d’une patience à 
toute épreuve, capable de s'adapter 
totalement au rythme de progression 
de l'élève, et sachant (s’il est bien 
programmé) individualiser la forma- 
tion. Je me contenterai, pour en ap- 
porter la preuve, de raconter une his- 
toire qui m'est arrivée. 


Il y a deux ans, ma fille (neuf ans à 
l'époque) était totalement bloquée en 
mathématiques, incapable d'effectuer 
la moindre opération sans erreur. 





Toute tentative de ma part pour lui 
faire faire des exercices le soir abou- 
tissait en peu de temps à une crise 
de larmes. 


En désespoir de cause, je lui ai écrit 
un petit programme, appelé PROF, 
qu’elle pouvait faire fonctionner toute 
seule. Ce programme lui permettait 
de choisir la nature d’une opération 
(addition, soustraction, multiplication 
ou division), puis lui fournissait une 
opération de la nature désirée, dont 
les chiffres étaient tirés au hasard. 


Le programme mémorisait sur une 
disquette le nombre d'opérations de 
chaque type qu'elle avait traitées, et 
le nombre de fois où elle avait ob- 
tenu la bonne réponse à la première 
tentative, à la seconde ou pas du 
tout (elle avait droit à deux tentatives 
pour chaque problème). Je pouvais 
ainsi surveiller son travail a posteriori 
sans que ma présence ne soit néces- 
saire lors de la séance de travail. 


Elle a fait de tels progrès en deux se- 
maines que son professeur s’en est 
aperçu et en a fait la remarque. Pour 
que ce soit devenu visible dans une 
classe d’une trentaine d'élèves, il fal- 
lait que le progrès soit sensible ! 


Pour moi, cette expérience à elle 
seule a justifié après coup l’achat de 
mon ordinateur familial. 


Développement de la créativité 


Enfin, il ne faut pas négliger l’ordina- 
teur comme outil d'aide au dévelop- 
pement de la créativité. Il suffit pour 
s'en persuader de voir un groupe 
d'enfants développer des program- 
mes en Logo. 


Les possibilités de création graphique 
ou musicale à l’aide de l'ordinateur 
sont immenses. En outre, des outils 
tels que Logo n'isolent pas l'enfant 
dans son cocon, mais le font travail- 
ler en équipe ; et c’est un travail de 
création ! 


Pourquoi un TI-99/4A ? 


De nombreux micros familiaux exis- 
tent. Pourquoi choisir un TI-99/4A ? 
Probablement pour la première rai- 
son qui à fait la réussite d'Apple, 
dans une gamme de prix plus éle- 
vée : parce que c'est l’ordinateur fa- 
milial qui offre la plus grande variété 
de programmes et de périphériques. 


Texas Instruments représente actuel- 
lement 60% du marché français de 
l'informatique individuelle, et ce évi- 
demment sans avoir bénéficié du 
concours explicite de l'Education Na- 
tionale ou d’autres organismes qou- 
vernementaux. Si tant d'écoles et 
d'enseignants s’en sont équipés, c’est 
certainement le résultat d’une ana- 
lyse de ce que pouvait apporter ce 
matériel. 





Quels sont les points 
forts du TI-99/4A ? 


grande variété des programmes 
disponibles (plusieurs centaines) 
compatibilité avec de multiples pé- 
riphériques et extensions 
micro-processeur 16 bits (Apple II 
ou Apple //e : 8 bits) 

écran haute résolution de 
256*192 points (10% de plus que 
sur l'Apple II ou l'Apple //e) 

16 couleurs 

majuscules et minuscules à l'écran 
possibilité d'extension de la mé- 
moire à 48K 

clavier à touches mécaniques, plus 
fiables que les touches sensibles 
trois voies sonores d’origine, avec 
possibilité d'extension 

possibilité de synthèse et recon- 
naissance vocale 

langages disponibles : Basic, Ex- 
tended Basic, UCSD Pascal, TI 
Logo, Assembleur-Editeur 

rapport performance/prix 
possibilité de partager son expé- 
rience avec des milliers d’autres 
utilisateurs 

et surtout, l'existence d’une excel- 
lente revue d'utilisateurs, n'est-ce 
pas ? 


Apple l’a déjà démontré; il existe 
dans la micro-informatique un cercle 
vertueux (le contraire du cercle vi- 
cieux) reliant la diffusion d’un maté- 
riel et la richesse de ses possibilités. 
Plus un matériel est diffusé, plus il est 
rentable pour les auteurs de logiciel 
de concevoir des programmes qui lui 
sont destinés, plus il y a de program- 
mes, plus il se vend de machines... et 
ainsi de suite. C’est la meilleure ga- 
rantie de l'intérêt d'acheter un TI- 
99/4A. 


Nous vous proposons, dans cette ru- 
brique, une idée de programme, dif- 
férente à chaque numéro. Ce n'est 
pas un concours ! Si vous réussissez 
à créer et faire fonctionner le pro- 
gramme suggéré, vous méritez un 
grand BRAVO, mais c'est tout ce 
que vous gagnez... Vous pouvez ce- 
pendant nous envoyer votre solution. 
La meilleure solution reçue le 30 juil- 
let au plus tard sera publiée et fera 
gagner à son auteur un abonnement 
d’un an. 


L'informatique est un domaine où il 
n’y à jamais une seule et unique so- 
lution à un problème donné. Il est 
donc exclu de pouvoir publier toutes 
celles que vous allez trouver, alors. 
nous nous résolvons à n’en publier 
qu’une, mais cela vous permettra 
d'enrichir votre programmathèque. 


1 - Etablissez un programme qui des- 
sine sur l'écran la carte de votre 


pays. Les principaux fleuves sont re- 


présentés; les villes importantes sont 
figurées par un petit carré, les villes 
moins importantes par un point. 
Aucun nom ne figure dans cette 
carte. 


2 - Le programme contient la liste 
des villes figurant sur la carte, avec 
leurs coordonnées sur l'écran (utilisez 
l'instruction DATA pour construire ce 
fichier). 


A vous 
de programmer 


3 - Le nom d’une ville est choisi au 
hasard et affiché dans un coin de 
l'écran. À l’aide du joystick ou des 
touches fléchées, le joueur doit ame- 
ner un petit mobile sur le point ou le 
carré figurant la ville désignée. 


4 - Après un certain nombre d'essais, 
le programme donne la solution au 
joueur si celui-ci ne l’a pas trouvée : 
il place lui-même le ’mobile” sur le 
point ou le carré figurant la ville qui 
était demandée. 


5 - Plusieurs villes sont ainsi deman- 
dées au joueur (à vous d’en détermi- 
ner le nombre), le nombre de répon- 
ses justes est cumulé et le 
pourcentage de bonnes réponses in- 
diqué comme note au joueur en fin 
de partie. 

Il vous appartient de déterminer les 
techniques et instructions à utiliser. 
Le jeu sera d’autant plus intéressant 
qu’il y aura un plus grand nombre 
de villes figurant sur la carte. Si vous 
vous sentez en verve, vous pouvez 
en faire autant pour les fleuves, mais 
c’est plus difficile. Une autre variante 
consisterait à écrire une version attei- 
gnant le même objectif avec les dé- 
partements (ou cantons, ou provin- 
ces...) plutôt que les villes. 


Pour ceux qui ne connaissent pas 
encore à fond leur cher TI-99, c’est 
là une excellente occasion de parfaire 
leur savoir... 


99 magazine recrute 


Vous recherchez une activité passionnante, tellement passionnante qu'elle occupera éventuelle- 
ment une grande partie de votre temps. 


Vous n'êtes pas trop pressé de percevoir d'importantes rémunérations mais pouvez en attendant 


vous contenter de peu. 


Vous ne pouvez nous consacrer qu'un peu de temps, mais vous êtes intéressé par une activité 


comme la nôtre. 


Venez vous joindre à notre équipe pour : 


rédiger ou analyser des articles, 


rencontrer des auteurs, 


rendre compte de salons ou d'expositions, 


tester des matériels nouveaux, 


analyser de nouveaux logiciels. 


Contactez-nous rapidement et nous nous rencontrerons pour convenir de modalités de collabora- 


tion. 
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Déballage 


du TI-99/4A 


Didier Bicking 


Notre premier travail, lors de .la 
conception de cette revue, a évidem- 
ment consisté à étudier le TI-99. 
TEXAS-FRANCE a eu la gentillesse 
de mettre à cet effet un système ab- 
solument complet à ma disposition : 
celui-ci comporte la console, le bof- 
tier d'expansion, le lecteur de dis- 
quettes tt son contrôleur, une exten- 
sion mémoire de 32K, et un choix de 
programmes dont notamment l’As- 
sembleur. 

J'ai, en premier lieu, été très impres- 
sionné par le nombre de cartons que 
cela représentait : pas moins de dix, 
de tailles variées, le plus gros étant 
celui du boîtier d'expansion. Mettre 
tout cela dans le coffre de ma voiture 
n’a pas été très difficile. Les problè- 
mes sont apparus lorsque je suis ar- 
rivé chez moi: mon épouse, dont je 
salue ici la bonne composition, a 
quand même éprouvé de prime 
abord un certain ressentiment en as- 
sistant à ce débarquement. 


Une fois tout déballé et monté, il ne 
restait finalement que peu de 
choses : la console, le boîtier d’ex- 
pansion dans lequel avaient pris 
place toutes les cartes de périphéri- 
ques ainsi que l’unité de disquette, et 
enfin les cassettes de programmes. 
Finalement, le plus dur aura été de 
caser quelque part les cartons vides 
avec leurs accessoires. 


Le montage en lui-même ne pré- 
sente pas de grande difficulté. Les 
cartes d'expansion, entièrement blin- 
dées, s’enfichent parfaitement bien. 
La seule mauvaise impression est 
donnée par cette énorme prise à 
brancher sur le côté droit de la 
console et son câble qui semble être 
en caoutchouc. Il est certainement 
possible d'améliorer la présentation 
de ce branchement, ainsi que son 
côté pratique. On peut d’ailleurs re- 
marquer que, sur toutes les docu- 
mentations diffusées par Texas Ins- 
truments, les photos représentant 
l'ordinateur dans sa configuration 
complète sont prises sous un angle 
tel que l’on ne voit ni la prise, ni le 
câble ! 


On comprend aisément le souci du 
constructeur de faire du solide: il 
s’agit là d’un matériel familial, donc 
destiné à être manipulé par des caté- 
gories de personnes très diverses. 
Sans doute le père de famille sera-t-il 
à cet égard beaucoup plus soigneux 
que son bambin de cinq ans qu’il 
commence à initier. 
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Tout cela est cependant un peu 
gros : le boîtier d'expansion est lourd 
et encombrant, son déplacement né- 
cessite une certaine force. De plus, 
tout ce blindage et ces artifices de 
protection coûtent cher et arrivent fi- 
nalement à empêcher, chez certains 
utilisateurs peu fortunés, un dévelop- 
pement rapide du système. Si on 
compare avec d'autres systèmes 
équivalents, on remarque que les 
cartes sont ailleurs sans doute moins 
bien protégées, mais par contre plus 
économiques (à qualité égale) et 
moins encombrantes.… 


Une fois réalisé le montage du sys- 
tème lui-même, il ne m'a donc plus 
fallu que le brancher pour le mettre 
en route. Alors là, gros problème : 
mon téléviseur couleur, pourtant pas 
très vieux, ne comporte pas de prise 
Péritel. Ce problème est vraiment le 
plus monumental qui soit : alors que 
la console coûte aux environs de 
2000 francs, il m’a fallu en ajouter 
3500 de plus pour me permettre de 
la faire marcher. J’ai interrogé Texas 
Instrument à ce sujet : il semblerait fi- 
nalement qu’une interface permettant 
de brancher l'ordinateur sur l’an- 
tenne soit en cours d'élaboration. Es- 
pérons-en la sortie pour bientôt! Il 
serait en effet dommage que d’autres 
personnes rencontrent le même pro- 
blème et doivent en passer par la 
même solution. 


Enfin, dernier problème: caser le 
tout quelque part dans mon apparte- 
ment sans abattre de cloison. Cela 
n’a pas été facile et je me suis finale- 
ment décidé pour la fabrication d’un 
meuble, pas trop laid je pense, dans 
lequel j'ai pu caser le tout : console, 
boîtier d'expansion et téléviseur, ainsi 
qu’une surface de rangement pour la 
documentation, parmi laquelle je pré- 
vois bien entendu les futurs numéros 
de ”99 magazine”. 


Le premier contact ayant été établi, 
j'ai ensuite commencé à consulter la 
documentation du Tl-Basic. Une 
bonne surprise m’attendait : cette do- 
cumentation est en français; de plus, 
elle semble bien faite, clairement pré- 
sentée et illustrée d’un nombre suffi- 
sant d'exemples. La lecture des quel- 
ques dizaines de pages contenant les 
principes du Basic est plutôt agréa- 
ble, l'apprentissage se faisant avec 
une certaine progressivité. Mais la 
meilleure surprise survient dès la 
mise en marche du TI-99 : la mire en 


“dedans. 





couleur qui se présente dès l’allu- 
mage laisse entrevoir les possibilités 
graphiques que nous allons pouvoir 
utiliser. 


En garçon très méthodique, j'ai suivi 
les conseils donnés par la documen- 
tation, c’est-à-dire que j'ai commencé 
par allumer le boîtier d'expansion, 
puis la console et, enfin, le téléviseur. 
Il se passait quelque chose qui m’a 
semblé anormal: l’unité de disque’ 
interne (c’est-à-dire incluse dans le 
boîtier d'expansion) tournait en per- 
manence, qu'elle soit ouverte ou fer- 
mée, qu'il y ait ou non une disquette 
Tout se passait en fait 
comme si les branchements entre 
cette unité et la carte du contrôleur 
avaient été faits à l’envers. 


Pourtant, les prises de branchement 
du câble de liaison sont munies de 
détrompeurs devant en principe em- 
pêcher ce genre de fausse maneuvre. 
Il n’y avait donc pas d’erreur de ma 
part. J’ai alors pris le risque de briser 
ce détrompeur du coté de l'unité de 
disquette et de faire le branchement 
dans le sens inverse de celui qui 
semblait prévu... et cela a marché! 
Une seule conclusion est possible : la 
prise avait été montée à l'envers. Il 
semblerait que le cas soit relative- 
ment fréquent, ou doive concerner 
une série de machines sorties pen- 
dant une durée limitée des chaînes 
de Texas Instrument ! Que ceux qui 
ont acquis le boîtier d'expansion 
avec l'unité de disquette ne s’affolent 
donc pas s’il leur arrive la même 
aventure. 


Ce problème ayant été surmonté, il 
s'en est de suite présenté un autre : 
dans quel sens introduit-on la dis- 
quette dans le lecteur ? Il y a en effet 
huit manières différentes possibles, et 
la documentation est extrêmement 
discrète à ce sujet. La solution est, en 
fin de compte, assez logique : si l’on 
considère que le lecteur est disposé 
en dehors du boîtier, à plat à coté de 
celui-ci, le sens normal d'introduction 
de la disquette sera avec l'étiquette 
vers le haut et l’encoche à gauche. 
Lorsque l’on redresse le lecteur pour 
le mettre dans la position où il se 
trouve dans le boîtier, l'étiquette 
passe à droite, et l’encoche en haut. 
C’est effectivement dans ce sens là 
qu'il faut disposer les disquettes. 


En fin de compte, je pense que dans 
l'ensemble, sauf en ce qui concerne 
la liaison entre la console et le boîtier 
d'expansion, l’ensemble est bien 
conçu pour une utilisation familiale. 
Tout parait solide et fiable, le clavier 
est d'un maniement agréable. Les 
lecteurs de cette revue trouveront 
dans nos pages quelques-unes des 
possibilités offertes par le TI-99 et 
que laissait déjà supposer la mire 
d’allumage. 


Les avantages du BASIC Etendu 


Jean Sahal 


On a coutume d’opposer les littérai- 
res aux scientifiques; c’est une dicho- 
tomie commode lorsqu'il s’agit de 
comparer l'attitude des uns et des 
autres face à l’ordinateur. Ce dernier 
présente de nombreux attraits aux 
yeux des scientifiques pour des rai- 
sons que l’on sait, alors qu'il suscite 
quelques réticences de la part des lit- 
téraires. Ces derniers n’ont a priori 
pas d'idée bien précise du parti qu'ils 
pourraient tirer de l'ordinateur dans 
le cadre d’une discipline d’où les ma- 
thématiques sont exclues. 


Il est vrai que l'ordinateur a été 
conçu à l’origine pour effectuer des 
calculs numériques. Mais on a eu vite 
fait de découvrir qu'il pouvait aussi 
bien, comme c’est le cas du TI-99, 
traiter des données de nature aussi 
variées que des chaînes de caractè- 
res, des images, la parole, etc... Dès 
lors, ses possibilités d'application se 
sont considérablement étendues. 
Pourtant, certaines idées préconçues 
font que l'ordinateur rencontre une 
certaine résistance à se faire accepter 
par les non scientifiques. Mais ces 
idées commencent à évoluer. Ainsi, 
par exemple, au club TI de Vélizy 
(destiné aux membres du corps en- 
seignant), on rencontre des ensei- 
gnants appartenant à des disciplines 
fort diverses : il y a par exemple une 
maîtresse d'école maternelle qui écrit 
des programmes animant de petits 
animaux pour ses écoliers, ou encore 
un grammairien qui construit un pro- 
gramme de conjugaison, etc... 


Le présent article a pour objet de 
montrer que le TI-99 peut très bien 
être ignoré en tant que ‘centre de 
calcul”, et avoir néanmoins des ap- 
plications dans beaucoup de domai- 
nes. Pour cela, il convient de faire un 
tour d'horizon des principales instruc- 
tions qu’il met à la disposition des 
utilisateurs, en particulier lorsque ce 
dernier n’est pas un scientifique et 
lorsqu'il programme en Basic 
Etendu. Pour la clarté du texte, nous 
ne ferons ici qu’une présentation de 
chaque instruction. Vous trouverez 
ces mêmes instructions, présentées 
de manère plus détaillée, dans un 
encadré à la fin de cet article et 
mises ’en situation” dans le pro- 
gramme ci-après. 


Chaînes de caractères 


Pour le traitement des chaînes de ca- 


ractères et pour tirer parti de l’inte- 
ractivité, on dispose des instructions 
habituelles à tous les micro-ordina- 
teurs. Soulignons toutefois l’instruc- 
tion ACCEPT AT qui apporte une 
solution rapide et esthétique à tous 
les problèmes de mise en page (tout 
comme DISPLAY AT d’ailleurs) et 
qui laisse la faculté de filtrer les ré- 
ponses du manipulateur au moyen 
de son complément VALIDATE. 
Cette dernière instruction peut se ré- 
véler très utile en pédagogie car c’est 
un excellent moyen de mettre le ma- 
nipulateur sur la bonne voie : les bips 
graves et aigus qui V sont produits 
permettent de différencier les propo- 
sitions adéquates de celles qui sont 
inacceptables. 


Effets sonores 


Pour les effets sonores, CALL 
SOUND, en permettant de jouer jus- 
qu’à trois notes simultanément, auto- 
rise la création d’une mélodie avec 
son accompagnement. Cela produit 
un type de musique un peu particu- 
lier, mais du reste fort agréable. Une 
phrase musicale est souvent bienve- 
nue dans un programme d’apprentis- 
sage pour marquer le passage d’une 
séquence à une autre où pour souli- 
gner une bonne ou une mauvaise 
prestation. Le synthétiseur vocal, as- 
socié à CALL SAY ou CALL 
SPGET, se révèle très utile dans les 
programmes destinés à ceux qui 
comprennent l’anglais. Par exemple, 
une mauvaise prestation est bien 
mise en relief lorsqu'elle est accom- 
pagnée par les paroles ”’this is incor- 
rect, try again”. On peut remarquer 
au passage que l’intonation de TRY 
AGAIN” est empreinte d’une certaine 
bienveillance, comme pour encoura- 
ger celui que l'ordinateur oblige à re- 
voir la partie de programme mal assi- 
milée. 


Effets visuels 


Pour les effets visuels et l’art pictural, 
on dispose d’un choix d'instructions 
et de sous-programmes résidents très 
complet. Certaines instructions peu- 
vent paraître complexes, mais elles 
font gagner pas mal de temps dans 
la réalisation de graphismes fixes ou 
animés assez élaborés. Il faut recon- 
naître qu'une certaine expérience est 
nécessaire pour découvrir tout le 
parti que l’on peut tirer d'instructions 
en apparance insolites comme CALL 


SPRITE, CALL MAGNIFY, CALL 
PATTERN, CALL MOTION. Le ma- 
nuel d'utilisation du Basic étendu 
donne une illustration amusante de 
CALL PATTERN. On y explique 
comment, avec un minimum de 
lignes de programme, on peut réali- 
ser une roue avec moyeux et rayons, 
comment la faire tourner et avancer 
en même temps sur une surface, ce 
qui est du plus surprenant effet. 


Programmation de jeux 


Enfin, pour ceux qui désirent réaliser 
leurs propres jeux vidéo ou autres 
programmes de topologie animée, on 
dispose, en plus des instructions dont 
nous venons de parler, de quelques 
autres qui permettent d’agir directe- 
ment et instantanément sur les gra- 
phismes ou sur certains objets qu’on 
tient à manoeuvrer individuellement. 
On connait l'instruction  CALL 
JOYST qui fait intervenir les manet- 
tes de jeu, mais il en existe de plus 
subtiles comme CALL COINC en 
particulier, qui est un moyen de trai- 
ter l'information donnée par la ren- 
contre de deux mobiles (sprites). Il 
serait vain de décrire en détail les uti- 
lisations potentielles de telle ou telle 
instruction : elles sont presque illimi- 
tées et dépendent en grande partie 
de l'imagination de chacun et du 
contexte dans lequel on les fait inter- 
venir. 


Applications 


Lorsque l’on est en mesure de tirer 
parti de toutes les ressources du TI- 
99 et du Basic étendu (c’est-à-dire 
après une période plus ou moins lon- 
que d'essais et erreurs, et peut-être 
aussi d'échanges d'idées et de 
contacts avec d’autres utilisateurs), 
on parvient à réaliser des choses ab- 
solument extraordinaires. On peut 
par exemple créer des jeux vidéo 
dont la complexité et les qualités gra- 
phiques ou sonores sont dignes de ri- 
valiser avec celles des jeux produits 
par des professionnels et que l’on 
trouve dans le commerce. On pour- 
rait aussi imaginer de fabriquer un 
cours d'anglais audiovisuel à partir 
de dessins animés, parlant, personna- 
lisé, sur mesure, avec contrôle des 
acquisitions et notation de l’élève. 


Comme on le voit, le TI-99 est assez 
éclectique : il y en a pour tous les 
goûts et toutes les spécialités. On 
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peut néanmoins se demander si, à 
vouloir réaliser ses programmes soi- 
même, on n’est pas amené subrepti- 
cement à exercer un deuxième mé- 
tier qui finit par être envahissant, et 
si, au fond, il ne vaudrait pas mieux 
laisser tout cela à des professionnels. 
L'un n'empêche cependant pas l’au- 
tre : il existe un certain nombre de 
logiciels professionnels pour le TI-99, 
mais il serait dommage de se priver 
du plaisir de programmer soi-même. 


Ce qui nous parait discutable dans le 
cas de l’ordinateur familial, c’est de 
vouloir à tout prix privilégier son as- 
pect outil de travail. Cet aspect a 
certes son importance, mais le TI-99 
présente également un aspect diver- 
tissement qu’il ne faudrait pas faire 
passer au second plan. Nous ne vou- 
“lons pas parler ici des jeux de réflexe 
ou autres que l’on trouve tout faits 
dans le commerce. Nous pensons 
‘plutôt au divertissement de haut ni- 
veau intellectuel que procure l’acti- 
vité de recherche ou de création as- 
sociée à un certain type de 
programmation. Réaliser un pro- 
gramme est en quelque sorte un jeu. 
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Et 
Sa LE 


60 DISFLAY AT(4,4): "CECI EST UNE DEMONST 
RATION DES FOSSIBILITES DU TI 99 DANS DE 
S DOMAINES QUI N°ONT RIEN DE SCIENTIFIOU 


Es" 
70 INPUT "PRESSEZ ENTER SI 
ONTINUER": 24 

60 CALL CLEAR 


VOUS VOULEZ C 


Il y a donc plaisir dès que l’on a la 
possibilité de se prouver à soi-même 
ou aux autres que l’on existe et que 
l'on possède une certaine originalité. 
Toute activité créatrice, toute activité 
à travers laquelle on s'exprime peut 
devenir un jeu. Lorsque l’on de- 
mande à un groupe d'élèves de réali- 
ser un même programme, on cons- 
tate que l'itinéraire emprunté pour 
arriver au même but diffère de l’un à 
l’autre. Chacun a son style de pro- 
grammation. ‘Fais voir ton pro- 
gramme et je te dirai qui tu es”. Pour 
un même programme de musique, 
certains utiliseront DATA et READ ; 
d’autres écriront une ligne de pro- 
gramme pour chaque temps, et choi- 
siront de composer leur programme 
en utilisant REDO pour changer l’ac- 
cord et le numéro de ligne. Ceci 
montre bien que programmer est 
une certaine façon de s'exprimer. 


Cela est valable aussi bien pour un 
programme de quelques lignes que 
pour un programme long et 
complexe destiné à créer un jeu 
vidéo ou un spectacle audiovisuel 
par exemple. 


Dans tous les cas, et si l’on fait pas- 
ser au second plan l’aspect utilitaire, 
on peut réaliser un jeu avec un as- 
pect magique et merveilleux parce 
que tout se passe sur un écran de té- 
lévision. Voilà pourquoi la program- 
mation peut devenir une passion 
comparable à celle du bridge ou des 
échecs. On n’en épuise jamais toutes 
les ressources et, quelle que soit la 
richesse ou le degré de perfection 
d'un programme, on ne se lasse 
jamais d’y revenir pour le modifier et 
ee des améliorations. 

e programme qui fait suite au pré- 
sent article ne présente pas en lui- 
même un très grand intérêt. Il est là 
essentiellement pour illustrer les em- 
plois possibles des différents types 
d'instructions citées. Je ne saurais 
trop vous encourager à vous reporter 
au manuel du Basic étendu pour 
analyser la structure de chacune 
d’entre elles. Le programme vous les 
présente ’en situation”. 


Voir encadré page 38 


QUND(D,1%1,V,165,V,330,V) 


50 
SOUND (D, 392,4) 
50 
5 


UND (D,131,V,175,V, 440, V) 
OUND(D,131,V,196,V,523,V) 
SOUND (D, 494, 4) 
SOUND (D, 121,V,175,V,440,V) 
. SOUND (D, 147,V,196,V,392,V) 
L SOUND(D,147,V,196,V,294,V) 
SOUND (D, 294, V) 
SOUND (D, 121,V,175,V,262,V) 
L SOUND(D#7,131,V,196,V,3 


SG CSLL SCREÉEN (IC) 

100 DISFLSY 4T(4,8i:" FOUR CONNAITRE 
MES TALENTS IL FEUT D'ABORD DEVINER LE 
MOT DE FASSE QUI EST UNE VILLE DES US8& HE 

IEN CONNUE" 

119 FRINT "FRESGSEZ LES LETTRES FUIS 

ER" 

120 ACCEPT ATIS,2ZIBEEF SIZE(7) V8LIDATE(" 
DALS'I: AS 

130 IF 4$="DALLAS" 
145 CS&LL CLEAR 

150 PRINT JE PEUX FARLER MAIS SEULEMENT 
EN ANGLAIS" ss CALL SAYC"HELLO, I+8M+8+# 
TEXAS INSTRUMENTS#+COMPUTERT") 

180 FRINT 

170 PRINT 

180 PRINT "JE PEUX AUSSI JOUER DE LA MUS 
IQUE F8S SEULEMENT L& MELODIE, L'ACCOMFA 
GNEMENT AUSSI" 

195 FOR &=i TO 3 


209 D=500 


THEN 140 ELSE 120 
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A 


ë 
} FRINT 
5 PRINT 

560 PRINT "JE GÂAIS AUSSI FAIRE D'AUTRES 

CHOSES " s3 PRINT 55 PRINT s: FRINT "VOI 

CI DEUX EXEMPLES, CHOISISSEZ" 

370 FOR B=1 TO 1000 :: NEXT BE 

390 CALL CLEBR 

390 CALL SCREEN(12) 

450 DISFLAY AT(S,2)s"1 

GLAIS" 

410 DISPLAY AT(12,2):"2 DESSIN 8NIME" 

420 INFUT "TAPEZ LE CHIFFRE CHOISI FUIS 

FRESSEZ ENTER: “": CHOIX 

35 ON CHOIX GOSUR 446,940 

440 CALL CLEAR :: C&LL SCREEN(IOD) ss: FRIN 

T "REGARDEZ LE CLAVIER,À GAUCHE VOUS VER 

REZ DES FLÈCHES: ” 

450 PRINT "SI VOUS AFPUYEZ SUR CES TOUCH 

ES VOUS DEFLACEREZ LE BALLON DANS LA DIR 

ECTION CORRESPONDANTE" 


FETITE LECON D'°AN 





460 PRINT "LES AUTRES TOUCHES (O,W,T,A,F, 
G,Z,C, V)ARRETENT LE BALLON,LA TOUCHE R 4 
RRETE L'EXERCICE" 

470 FRINT 

480 PRINT 

490 PRINT s: PRINT "N'OUBLIEZ PAS: EMFL 
OYEZ G0 QUAND VOUS FARLEZ DE GEULQUE CHO 
SE QUI S'ELOIGNE,COME QUAND CA SE RAFFRO 
CHE" FRINT 

500 PRINT 

5i0 PRINT s: PRINT "PRESSEZ ENTER SI VOU 
GS ETES PRET COR à FORTIR DE MGINTENANT T 
OUT SE FERA EN ANGLAIS" 

INPUT REFS$ 

5x0 CALL CLESR 

SO CALL SFRITE (#1,48,5,96,179) 

560 CALL KEYVCLESi 
3 IF S=û THEN 5 
560 IF KeS THEN Ÿ 
LL SAYCUF "ss 


à) 
ERA 


RTS 
CLERR 3: C4 

lib, l4)s "Ur" 

NS UF 13: GOSU 

E 891 

J90 IF Esoû THEN Y=d4 3 CALL CLESR 

L SÉY("DONN'iss DISFLEY 4T(é, 14): 
PRINT f£tbhe balloon is coming DOWN 


ue 
2j 1 
"DOWN" 


IF K=2 THEN X=-4 35 CSLL CLESR 33 DI 
ALAN 6 (és Dhs "COME TO THE LEFT!" CAL 
AY EULEFT ')ss PRINT °THE BALLOON IS CO 


IF K=3 THEN X=4 CALL CLEAR :: DI 
LAY AT(6,18):"G0 TO THE RIGHT!" 2 CAL 
BYC"RIGHT"):: PRINT "THE BALLOON IS Gi 
ING 
820 IF K=1 THEN X,Y=0 se Cé 2: F 
RINT TAB(14)3"STOP" sc: PRINT 2: PRINT "T 
HE BALLOON IS STILL" :: CALL SAY("STOF") 
620 IF K=6 THEN 670 
640 IF Eïé THEN X,Y=0 :: CALL CLEAR :: 
ALL SAV("STOP"):: PRINT TAB(14):"STOF" 
PRINT "THE BALLON IS MOTIONLESS" 
6EG CELL MOTION(#I,Y,X) 
660 GOTO 560 
670 CALL DELSPRITE(ALL):: CALL CLEAR :: 
GOTO 380 
880 CALL CLEAR 
890 CALL CLEAR :: CALL MOTION(HI,-4,X) 
700 CALL COLOR (4,4,4) a 
710 CALL HCHAR(1,1,61,640) 
720 PRINT "WHAT IS THE BALLOON DOING 7" 
730 ACCEFT VALIDATE("ITSGONUF ")BEEF:RS 
740 IF R$£"IT IS GOING UF" THEN 770 
750 CALL SAY(C"#THAT IS RIGHT#"):: PRINT 
“THAT IS RIGHT" :: PRINT :: PRINT "PRESS 
ANOTHER KEY" 
765 GOTO 800 
770 CALL SAY(C"#THAT IS INCORRECT##TEY 46 
BIN#"):: PRINT "THAT IS INCORRECT" :: CA 
LL CLEAR :: PRINT "CHOOSE BETWEEN 60 UF 


COME UF" 

Q FOR DEL=1i TO 500 s: 

5 GOTO 485 
où RETURN 

à CALL CLEAR 
20 CALL MOTION(#1,4,X) 
50 CALL COLOR(4, 4,4) 
40 CALL HCHAR(1,1,61,640) 

Q PRINT "WHAT 1S THE BOLLOON DOING 7" 
60 ACCEPT VALIDATE({"ITSGONUFDW CM") BEEF 


NEXT DEL 


THEN 890 
FRINT 
'PRÈSS 


IF RSCAUIT IS COMING DOWN" 
à CALL SAY(C"ETHÊT IS RIGHTH")z: 
THAT IS RIGHT" PRINT 2e 
ANOTHER REV" s: GOTO 910 
990 CALL SAYC"HTHAT IS INCORRECT##TEY À 
BINS'isz PRINT CTHAT IS INCORRECT" 
Li CLESR 
SO PRINT CCHOOSE BETWEEN GQ DOWK 
COME DOWN" FOR DEL=1 TO S00 z: 
CSLL CLEBR s:: GOTO 820 
à RETURN 
Q BRESE 


GOTO :8ûù 
et 
L 


BND 
NEXT D 


Fr 


GS 0 M 


5 


Hs Li Pi re 
Ÿ I S 


: REM DESS 
gg CALL CLE 

5 CALL COLOR(IZ, 16,16) 

FOR &=is TO 24 

Je CALL HCHBRIA, 1, 12,72) 

7 NEXT À 
1000 AS="OIO07ISRISIALAIFFFFAISIRITIIS070 
GOOEUSOB4040287FFFFOLOI6A48ASSEUOO" 
LOTO He MOTOGTOTTOSCASSI014248249C19070 
GOCGSDIGTATALIATOIB IST IANOOCOAISENCO" 
1080 C="OlGé 18202 d4S4P816148850 Q18070 
H80H6018040C7667818147607474189ÉÈ000" 
LOG CALL CHÉRISS, A$) 
1040 CALL CHSR(ION, B$) 
LOS CSLL CHAR(IOS, CS) 
1960 CALL SFRITE(#1,96, 
1070 CALL SFRITE(K2,86, 
1580 CALL MAGNIFY{T) 
1060 FOK 4258 TO 104 STEF à 
1100 CALL COINC(CHI,HI,2, 
1110 IF C=-i THEN 1170 
1120 CALL FATTERN(IHI, 8) 
1130 CALL FATTERNOHD, BON) 
114 FOR DELSY=I TO S 3: NEXT DELA&Y 
1150 NEXT & 
iié GOTO iü9û 
1170 CALL SOUND(S0N, -7,10) 
1190 FOR D=Z TO lé 
1190 CALL SCREENIDIs:: FOR DEL=1 TO 5 :: 
NEXT DEL 
1200 NEXT D 
1210 CALL DELSPRITE (ALLO) ss 
1220 BREBE 


N 8NIME 
F 


n 
À 
0 


.130,1,0,8) 


30, 1.0, -8) 


d 
= 
de) 


CALL CLEAR 
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Le moyen le plus agréable d’appren- 
dre en amateur le TI-Basic (ou Basic 
simple) est certainement de program- 
mer soi-même. Aussi présentons- 
nous ici un programme évolutif que 
lon peut étudier simplement en sui- 
vant la progression proposée, ou que 
lon peut modifier à volonté en 
l’orientant vers des variantes qui dé- 
pendront de l'humeur du moment. 


Nous avons d’ailleurs suivi une dé- 
marche similaire et, partant à l’aven- 
ture, avons abouti à un jeu amusant 
qui ne manque pas d'intérêt. 


Au commencement, nous avons 
voulu créer un bonhomme... Il nous 
a paru intéressant de le faire mar- 
cher, puis de lui donner des cou- 
leurs. Plus tard, nous avons souhaité 
entendre ses pas sur la route. Quel- 
ques embüûches ?.. Un trou pourrait 
apparaître devant lui, à un endroit 
déterminé au hasard, et il v tombe- 
rait. On pourrait commander par la 
pression d’une touche l'apparition 
aléatoire de plusieurs trous qu’il se- 
rait possible de changer de place... 


D'où le jeu qui consisterait à éviter 
que le bonhomme ne tombe dans un 
de ces trous. 


Pour agrémenter le tout, quelques 
oranges lui donnent envie de sauter. 


Nous vous laissons le soin d'imaginer 
une suite : par exemple un compteur 
permettrait de comparer les réflexes 
de plusieurs joueurs, une musique 
soulignerait une chute ou un record 
battu, etc... Laissez votre imagination 
vous conduire et canalisez-la à l’aide 
du Basic et de votre TI-99. 





Programme 1 : 
construction d’un dessin 


L’'instruction REM (remarque) nous 
permet d’écrire des remarques desti- 
nées au lecteur du programme. Cette 
instruction et le texte qu’elle contient 
ne sont pas pris en compte par la 
machine, sauf lorsqu'elle fait le dé- 
compte de la place mémoire restant 
disponible ! Il est donc inutile de re- 
copier sur votre appareil les lignes 
commençant par REM. 


Les REMs sont utiles lors de la réali- 
sation du programme : elles permet- 
tent de noter certains repères, de 
rappeler le rôle des variables ou des 
sous-programmes utilisés. Elles sont 
surtout utiles lorsque le programme 
est réalisé en plusieurs séances. Une 
fois le programme terminé, on peut 
supprimer toutes les REMs avant de 
l'enregistrer définitivement, surtout si 
l'on est ”’serré” au point de vue mé- 
moire. 


Nous présentons, en même temps 
que le programme, un organigramme 
permettant d'observer l’ensemble du 
déroulement du programme. Le pre- 
mier rectangle contient en général les 
instructions initialisant le système : ici, 
construction du caractère numéro 
100 et effacement de l’écran. Les 
rectangles suivants contiennent le 
corps même du programme. Enfin, 
les traits fléchés indiquent la succes- 
sion des séquences du programme. 


La ligne 200 du programme peut pa- 
raître insolite. Son objet est de cons- 
truire la forme adoptée pour le carac- 
tère 100. Il faut se représenter ce 
caractère comme construit dans une 
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grille de 8 carreaux sur 8. En traçant 
une ligne verticale au milieu de cette 
grille, on délimite des groupes de 
quatre caractères binaires, chaque 
groupe représentant une valeur de O0 
à 15; nous associons à cette valeur 
le code hexadécimal correspondant 
de O0 à F. Les valeurs données entre 
guillemets dans la ligne 200 du pro- 
gramme 1 sont les codes hexadéci- 
maux de chacun des 16 caractères 
binaires. Le caractère 100 se repré- 
sente donc par : 


3 0 00110000 
3 6 00110110 
19 00011001 
6D 01101101 
14 00010100 
12 00010010 
09 00001001 
00 00000000 


Les deux derniers caractères étant 
nuls, ils peuvent être omis. Nous 
avons ainsi rempli la grille, les cases 
contenant un chiffre 1 seront colo- 
rées à la couleur déterminée pour 
notre personnage, les autres seront à 
la couleur du fond. 


La ligne 210 place ensuite ce person- 

nage sur l’écran. La signification des 

paramètres de l'instruction CALL 

HCHAR utilisée est la suivante : 

— numéro de la ligne dans laquelle 
sera représenté le caractère 

— numéro de la colonne dans cette 
ligne 

— numéro du caractère à représenter 

— nombre de fois qu’il faut représen- 
ter le caractère à partir de la posi- 
tion indiquée (ce paramètre peut 
être omis s’il est égal à 1) 










LO REM PROGRAMME NO 1 150 REM 

20 REM 160 FREM 

eh REM mm 170 RE 

60 REM COPYRIGHT 99 MAGAZINE 180 REM 

79 REM ET ROGER DIRBI 190 CALL CLEAR 

89 REM =====zs==s=====s======= 200 CALL CHAR (100, "50361940i141209") 










9: REM 219 CALL HCHBR (16,20, 100,1) 

100 REM A UE 220 GOTO 220 

110 REM +*CONSTRUCTION D'UN# 230 REM 

120 REM + DESSIN # 240 REM 

LED REM GA RE EEE 250 REM 

140 REM On utilise CALL CHAR pour creer | 260 REM On donne le numero 190 a notre 
le dessin, ensuite on l'imprime sur dessin. Or 100 est deja le code d'une 
l'ecran a l'aide de CALL HCHAR. lettre. 
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270 KENM Tant 
code 100 est 
CALL CHER. 
280 KEM 


10 REM 
220 KE 
Drogramme 
RE 

ES RE Four 
F"FCTN 4° 





Créer le dessin No 100 
effacer l'écran 


Dessiner 
le bonhomme 


Rester en mode 
programme 


Programme 2 : 
déplacement du dessin 


L'écran du TI-99 contient 24 lignes, 
numérotées de haut en bas de 1 à 
24. Chacune de ces lignes comporte 
32 positions numérotées de 1 à 32 
de la gauche vers la droite. 


Ce programme nous permet de faire 
deux observations essentielles : 


1 - L'utilisation des variables nu- 
mériques : le bonhomme se dé- 
place sur la ligne numéro 10. L’em- 
placement du caractère qui le 
représente sur cette ligne est donc 
une variable. Nous choisissons une 
case de la mémoire de l'ordinateur 


Organigramme n° 1 


que nous représentons par la lettre 
X. Nous affectons ensuite à X la va- 
leur 32, numéro du dernier caractère 
à droite de l’écran. Puis nous décré- 
mentons le contenu de la case X 
(instruction 290: X=X-—-1) Dans 
l'instruction CALL HCHAR, la lettre 
X remplace le numéro de la co- 
lonne: la machine cherche le 
contenu de la case X chaque fois 
que cette lettre est mentionnée dans 
le programme comme une valeur. 
Ainsi, à chaque tour, le bonhomme 
se dessine à la gauche du précédent. 


2 - L'utilisation d’une boucle 
conditionnelle : tant que la valeur 
de X est supérieure à O (zéro), l’ordi- 


nateur continue à dessiner (ligne 
270) puis à effacer (ligne 280) le 
dessin pour le recréer ensuite. Aussi- 
tôt que le contenu de X devient infé- 
rieur à 1, le programme s’arrête. 
Observez l’organigramme : il est typi- 
que de ce genre de raisonnement. 
Nous le retrouverons dans presque 
tous les programmes que nous réali- 
serons. Le test est représenté par le 
contenu d’un losange. Pour que l’or- 
ganigramme représente le mieux 
possible le déroulement du pro- 
gramme, il est préférable de marquer 
la sortie OUI” horizontalement 
(comme un renvoi), et la sortie 
NON’ verticalement, ce qui indique 
que le programme se poursuit en cas 
de réponse négative. Les rectangles 
et les losanges se suivent donc sur 
une même colonne ; seuls les traits 
fléchés précisent l’ordre des séquen- 
ces. 


Programme 3 : 
mouvement 


Ce programme résout deux problè- 
mes classiques que l’on rencontre 
dans tout programme: créer une 
temporisation et réaliser une boucle 
conditionnelle. 


1 - La PAUSE (lignes 290 et 300) 
consiste à interrompre le déroule- 
ment du programme pendant un 
temps donné, par exemple pour per- 
mettre à l'utilisateur de lire un mes- 
sage qui vient d’être affiché à l’écran. 
On choisit alors une case mémoire, 
nommée ici T (on aurait pu l’appeler 
DELAI pour plus de clarté) et on fait 
varier le contenu de cette case sans 
que la machine n'effectue aucun tra- 
vail, avec une boucle FOR...NEXT. 


2 - La boucle conditionnelle al- 
ternative : un paramètre utilisé dans 
une boucle prend l’une ou l’autre de 
deux valeurs déterminées (ici, U 
prend la valeur 100 pendant un tour 
et la valeur 101 au tour suivant). La 
boucle dispose alors de deux départs 
distincts, sachant que si le premier 
est emprunté il faudra ’’sauter” le se- 
cond. Cette boucle se termine par un 
test : U est-il égal à 100 ? Si oui, on 
rejoint le second départ, sinon on 
prend le premier départ et on saute 
le second. 

De cette manière, le bonhomme qui 
se déplace sur l'écran est représenté 
alternativement par le caractère de 
code 100 et celui de code 101:ona 





:)!) MAGAZINE n° 1 





































l'impression qu'il marche au lieu de 
se déplacer par une sorte de glissade. 
Une autre solution, astucieuse mais 
plus difficile à comprendre, consiste à 
écrire (sans REMs) le programme 3 
bis ci-après. Cette solution utilise les 
variables  booléennes  (FAUX=0, 
VRAI=-1). 










Programmes 4 et 5 : 
couleurs 


Les programmes numéros 4 et 5 mo- 
difient les couleurs des caractères en 
fonction de la couleur de l'écran. 
Pour les comprendre, il suffit de se 
reporter aux explications concernant 
CALL SCREEN et CALL COLOR 
dans le manuel d'utilisation du TI-99. 
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ct Le 


Programme 6 : 
mouvement 
du bonhomme 


Il s’agit de permettre à l'utilisateur de 
mettre en marche ou d'arrêter à vo- 
lonté le bonhomme en appuyant sur 
l’une des touches ”’A”’ ou M”. Nous 
choisissons pour cela une case mé- 
moire qui jouera le rôle d’un DRA- 
PEAU (dans un aiïguillage, un dra- 
peau permet de signaler au 
conducteur du train la direction qu'il 
doit prendre !). 


Nous placerons donc dans la case M 
de la mémoire la valeur 0 ou 1 sui- 
vant que le drapeau doit être levé 
(marche) ou baissé (arrêt). Il suffit 


CHEN 





REM FROGRSMME NO 2 180 REH 
EG REM 190 REH Le dessin evolue sur la ligne 10 
DU RÈM =essssesesezzseszzessszs de la droite vers la gauche. 
60 REM COFYRIGHT 99 MAGAZINE La premiere colonne est la colonne 3%: 
F0 REM ET ROGER DIDI ligne Zaû, 
Où RENM ==zzzzzzzzz=--=-==----- RO FRENM 
99 REM REM 
100 REM HHEREEHEMRÉEREEEESSX BEM 
110 REM #DEFLACEMENT D'UN +# REM 
120 REM # DESSIN # Y=z7 
130 REM HKEKENHELEEÉEREEREEXS 250 C8LL CLESK 
140 RE PRINCIRE à 26 CALL CHAR CIOO, MIGESIFÉCI417090) 
150 RENM On imprime le dessin a un 270 CALL HCHAR (10, X, 100, 1) 

roit de l'ecran, puis 1 ) CALL HCHAR (IQ, X,32) 

& 1 





320 











10 REM PROGRAMME NO # 20 REM 
0 REM =zzzzzszzssss=ssssssssss D1O: Xesi 
E9 REM COPYRIGHT 99 MAGAZINE Se0 CALL CLESAR 
70 REM ET ROSER DIDI 20 CALL CHÉRÉIOG, IS8CI41209") 
BÙ REM =2=zzzz=z=zsz=zzzszzzzzz 240 CALL CHAR (101,"3036196C142540") 
90 REM 250 Leo 
REM HHHEERERERÉREREENUEX 280 GOTO 28û 
RE MOUVEMENTS # 27 Usioi 
REM &EEREHEHHEEHEREREEREEXX 20 CALL HCHAKR CIO, X sy ) 
130 REM PRINCIPE : 290 FOR T=i TO 50 
lé REF on voudrait remuer les jambes du | 300 NEXT T 
coureur ! 310 CSLL HCHBR (10, X, 22, 1) 
159 REM 20 X=X-i 
180 RE IG IF XE1 THEN 390 
170 HEM 11 suffit pour cela de creer 340 IF U=si0û THEN 276 
deux dessins du coureur. Le premier aura | 350 GOTO 250 
les jambes dans une position et le 269 REM 
second dans une autre. 270 REM 
180 REM Four creer l'illusion du 290 REM Four que le mouvement des jambes 
mouvement on imprime tour a tour les soit visible, is une boucle 
deux dessins. d'attente en 
190 REM 390 END 










ensuite de tester à chaque tour la va- 
leur de M pour savoir si l’on doit ou 
non sauter” l'instruction de variation 
de forme et de position du bon- 
homme. Nous n'avons pas écrit de 
remarque dans le programme avant 
l'instruction CALL KEY car elle de- 
mande un commentaire plus déve- 
loppé (voir à ce sujet l’article de Ber- 
nard Braun). 

CALL KEY est une instruction qui 
permet de scruter le clavier pendant 
le déroulement du programme : deux 
cases mémoires, que nous avons 
nommées K et S, sont réservées à 
cette surveillance. Dans la case S, la 
machine inscrit la valeur O si aucune 
touche n’est pressée et la valeur 1 
dans le cas contraire. En outre, S 
















prend la valeur —1 si la même tou- 
che reste enfoncée. La variable K, 
quant à elle, prend la valeur du code 
ASCII de la touche pressée. 


Il ne reste plus qu’à gérer les consé- 
quences de ces actions et à écrire les 
tests correspondants aux faits que 
lon désire voir se dérouler suivant 
les valeurs de ces paramètres (lignes 
310 et 320). 


La fonction ASC permet de détermi- 
ner le code ASCII d’un caractère 
donné. Ainsi K=ASC("’M") revient-il 
à écrire K=77. 


Programme 7 : 
bruitage et vitesse 


Nous avons ici simplement complété 
l'utilisation de CALL KEY (lignes 230 
et 250 du programme 6) pour agir 
sur la vitesse du bonhomme, et nous 
avons ajouté des bruits (ligne 390 du 
programme 7). Etudiez ces program- 
mes qui n'apportent par ailleurs rien 
de nouveau dans notre apprentissage 
du Basic. Essayez cependant de 
construire l’organigramme du pro- 
gramme 7. 


Programme 8 : 
on rencontre un trou 


Nous utilisons ici les instructions RND 
et GOSUB, ainsi que la fonction INT. 


RND est une instruction qui génère 
un nombre aléatoire compris entre 0 
et 1 (O0 inclus, 1 exclus). En multi- 
pliant RND par 30, nous obtenons 
donc un nombre réel compris entre O 
et 30 (exclus). Mais ce nombre n’est 
pas entier. La fonction INT (de l’an- 
glais INTEGER = partie entière) 
donne le plus grand nombre entier 
inférieur à l'argument entre parenthè- 
ses. Ainsi INT(3.8)=3 ; par contre, 
INT(—3.8)=—4. 
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END 
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Dessins caractères 100 et 101 
Couleurs ‘écran et caractères 
Effacer 1’écran 










Créer caractères 100 et 101 
Initialiser X : X = 32 
Effacer l’écran 






















Drapeau bas: M=0 
Drapeau ‘haut:M=1 














U contient le No 
du premier caractère 


U contient le No 
du second caractère 















Dessin du 
caractère No U 



















Inchangé? 
S = 0 
















Non 
Dessin du bonhomme 


Effacer le bonhomme 





Dessin d’un "blanc" 
pour effacer 






Décrémenter X:X=X-1 























Est-on arrété? 
= 7? 


Non 
Décrémenter position: X=X-1 


Extrème 
gauche 
X< 1 


? 
Non 
es us 
Non 


Organigramme n° 3 


Oui 









:)1) MAGAZINE n° 1 





















Organigramme n° 6 





10 REM PROGRAMME NO 5 180 CALL SCREEN(15) 

ES € € 190 CALL CLES&F 

6Q FEM COPYRIGHT 99 MASAZINE 200 CALL CHAR(100, "30561940141209") 
79 REM ET ROGSER DIDI P10 CALL CHAR (101, "3036196C142340") 
D RES Lonmemmennen nn nne PAO X=51 . 

70 REM 230 U=100 

100 REM ad ee EE 240 GOTO 260 

110 REM #DEFLACEMENT D'UN # 26 Leini 

115 REM # DESSIN # 260 CALL HCHAR(10, X+1,52,1) 

170 REM RHEHKKEEESERENEENEES 270 CALL HCHAR (10, X,U, 1) 

130 REM 280 X=X-1 

140 REM 890 IF K£1 THEN 3540 

180 REM Il vaudrait mieux que le dessin 3260 FOR T=1 TO 50 

ait la couleur de l'ecran 510 NEXT T 

180 REM Modifions la couleur de 1fecran DOG IF U-100 THEN 255 

(CALL SCREEN) EE0 GOTG E50 

170 CALL COLORI9, 15, 15) HG END 









Pour obtenir un mombre entier 
compris entre a et b il suffit d'écrire 
INT(RNDx{(b—a)+a). La ligne 260 
du programme 7 générera donc un 
nombre entier compris entre 1 et 30. 
L'utilisation de GOSUB est ici un 
peu forcée. On pourrait en faire 
l'économie. Mais nous profitons de 
ce programme pour en montrer 
l'usage : le sous-programme dessi- 
nant le trou est utilisé deux fois par 
le programme principal (lignes 280 et 
780 du programme 8). Le sous-pro- 
gramme commençant à la ligne 730 
et se terminant à la ligne 760 par 

permet de n’écrire qu’une 
fois l’enchaînement d'instructions 
qu’il contient. Ainsi GOSUB est-il un 
renvoi avec esprit de retour: le 
contrôle est envoyé à la première 
ligne du sous-programme, mais, aus- 
sitôt le RETURN rencontré, il revien- 
dra à la première instruction qui suit 
le GOSUB. 








Programme 9: quatre 
trous disposés au hasard 


Quatre trous, dont les positions sont 
dans les cases mémoire C1, C2, C3 
et C4, sont placés sur chacun des 
quarts de la route : 


C1=INT(RNDX=8)+1 

position aléatoire entre 1 et 8 
C=INT(RNDx+8)+9 

position aléatoire entre 9 et 16 
C3=INT(RNDx%8)+17 

position aléatoire entre 17 et 24 
C4=INT(RND=*8)+25 

position aléatoire entre 25 et 32 


Un sous-programme (lignes 550 à 
590 du programme 9) détermine la 
position de ces quatre trous. Un 
autre sous-programme (lignes 600 à 
660) dessine alors la route et les 

quatre trous. 


La ligne 360 demande un commen- 
taire détaillé. Commençons d’abord 











par comprendre comment la ma-' 

chine exprime qu’une expression est 

vraie ou fausse. Pour cela frappez les RL | 

instructions suivantes et observez la Initialisation précédente +caractère 102 
réponse : Dessin du premier trou : position C 
PRINT 2=2 Rép : —1 

PRINT 2=3 Rép: O0 

PRINT 5<4 Rép: O0 

PRINT 5>4 Rép : —-1 

PRINT (2=3)*x6 Rép: 0 

PRINT (5>4)x(8=8)*x7 Rép: 7 


Le résultat d'une comparaison est 
donc —1 lorsque cette comparaison 
est VRAIE et O dans le cas contraire. 
Il est intéressant de noter que ces ré- 
sultats peuvent être utilisés dans une 
opération comportant d’autres signes 


opératoires. Dessin du bonhomme: position X 


Frappez maintenant les lignes suivan- 
tes et observez les réponses de la 
machine : 


PRINT (2=2)x(4<5)x(3<7) 

Réponse : —1 

PRINT (2-3)x(5>7)*(8>9) Le bonhomme est sur le trous il 
Réponse : 0 tombe avec fracas. On scrute le 
Si les trois expressions sont vraies, la clavier pour commencer. 
réponse est non nulle; mais si l’une 

au moins d’entre elles est fausse, 


alors la réponse est 0! Essayez de ; ; 
bien cmbséntte ces paticilaitiés 
avant de lire la suite. Au besoin, 

faites d’autres essais. 

Vous pouvez alors constater que le 

signe ”’*” dans une instruction IF 

constitue le ET logique : la condition 

est vraie si l’une ET l’autre des ex- 

pressions sont vraies. En revanche, si 

vous utilisez le signe +”, il constitue 

le OÙ logique. Ainsi, si vous écrivez : 

IF (A=B)+(A=C) 

la condition sera vraie si l’une OÙ 

l’autre des expressions qui la compo- 

sent est vraie. 


Etudions maintenant le fonctionne- 
ment de l'instruction composée 
IF... THEN. La machine teste l’ex- 
pression comprise entre IF et THEN : 
e si cette expression est nulle, elle la 
considère comme fausse et passe à la 
ligne suivante du programme, sans 
exécuter ce qui se trouve derrière 
THEN ; 

e si cette expression est différente de 
zéro, elle la considère comme vraie 
et exécute ce qui est derrière THEN. 


Cette précision doit maintenant vous 
permettre de mieux comprendre la 
ligne 360 du programme 9. En effet, 
si l'expression comprise entre IF et 
THEN est nulle, c’est que l’une des 
valeurs C1, C2, C3 ou C4 est égale 
à X ; il y a donc coïncidence entre la 
position du bonhomme et la position 
de l’un des trous! D'où la consé- 
quence... 


Le reste du programme est simple à 
comprendre. Nous vous laissons le 
soin de réaliser l’organigramme 
complet de ce programme, comme 

d’ailleurs des suivants : cela peut être 
un excellent exercice. 


Organigramme n° 8 
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Programme 10: quatre 


trous et des oranges 


Nous voyons apparaître ici pour la 
première fois une variable indicée : 
B(1), B(2), B(3) et B(4) sont les posi- 
tions des quatre oranges (du moins 
la colonne dans laquelle elles se trou- 
vent). Des variables indicées peuvent 
notamment être utilisées dans des 
boucles FOR..NEXT, comme dans 
ce sous-programme (lignes 870 à 
910) qui dessine les oranges. Remar- 


19 REM FROGRAMME NO 
29 RE 


ES Loi 
0 REN 


quons que l'altitude des oranges est 
aussi aléatoire et comprise entre 4 et 
8. Etudiez ce programme et construi- 
sez son organigramme... 


Programme 11: sauter 


pour une orange 


Lorsque le bonhomme se trouve au- 
dessous d’une orange, on appuie sur 
la barre d’espacement (code ASCII 
32), ce qui le fait sauter et fait dispa- 


10 REM 
50 KREM 
6 REM 


raître la ou les oranges qui l’intéres- 
sent. Observez pour cela le test qui 
se trouve à la ligne 1000. 


Le reste du programme comporte 
peu de difficultés et il vous est possi- 
ble de le comprendre entièrement. 
Alors bon courage... 


Ecrivez-nous pour nous dire si cette 
méthode d'approche de l’informati- 
que vous convient, et proposez-nous 
des idées pour l’améliorer. D’avance 
merci | 


PROGRAMME NO 7 


&5 REM 
72 REM 
85 REM szssssssszzzzzsz=2=zszzz Di5 
30 REM 

100 FEM HER EREEER ER 

110 REM + MARCHE-SRRET DL + 

115 REM +# EONHOMME # 

120 KREM LEkHEEHELÉELRRÉÉEEEELE 

130 CALL COLOR(9, 13,15) 

14 CALL SCREEN(IS) 

150 CALL CLEAK 

1éù CBLL CHAR(100, MEOTS188C141209") 
170 CALL CHAR (IG, "30361960142746") 
ie Keïi 


1oû 
15 


COPYRIGHT 95 MAGÉZIN , F2 FREM 
ET AOGER DIDI 80 RE 
REM 
100 REM HEMMEERERÉMUMU EURE 
1109 REM +  EBRUITAGE ET +% 
115 REM +# VITESSE + 
120 REM HEHEREEEEMESEÉREUNUES 
130 REM 
140 REM PRINCIFE 3: Un bruit de pas 
accompagne la course. 
150 REM la vitesse VARIE sous l'action 
d'une touche quelconque, Mais V accelere 
le mouvement !! 
160 REM 
170 CSLL CHAR(SA,"0") 
186 REM Le caractere 94 est un 
(pour la route). 
195 CALL COLOR(8,12%,12) 
200 CALL COLOR(9,15,13) 
210 CALL SCREEN(IZ) 
220 CALL CLESR 
230 REM Trois liones de 
route !!I 
240 CALL HCHAR(11,1,94,94) 
250 CALL CHÉR (106, "T036196C141209") 
260 CALL CHAR (101, "SOSé1980C142540") 
270 X=51 
2890 U=i00 
295 GOTO 
300 U=s1o1 
310 GOTO ESC 
220 M=û 

GOTO € 
M=1 
CALL HCHAR(10,X,U, 1) 
FOR DELAI=1I T0 V 
REM Flus V est grand plus la vitesse 
faible. 
NEXT DELAI 
CALL SOUND(S5,-4,9,119,7) 
CALL KEEY(O,K,5) 
IF S=û5 THEN 460 
IF E=ASC("MU)THEN Z4aû 


U=iüo 
GOTO 29û 
U=ici 
GOTO 
239 M=0 
240 6070 29û 
250 M=i 
260 REM 
270 REM 
280 REM La touche M 
bonhomme. La touche 
290 CALL KEY(0,K,5S) 
IF S=û THEN 346 
IF K=ASC("M") THEN 
IF E=8SC ("A") THEN 
REM 
4 CALL HCHAR (10, X,U, 19 
à FOR DELA&I=1 TO 20 
NEXT DELAI 
370 CALL HCHBR(10,X,32, 1) ZE 
IF H=O THEN 4Gû E40 
X=X 1 350 
IF X£1 THEN 160 560 
IF U=100 THEN 210 70 
à GOTO 19û ect 
30 REM ‘M° joue le role d'un drapeau. F0 
Quand M=1i, il est haut. Quand M=û, il 290 
est bas. 400 
440 REM ESSAYEZ D'ARRETER LES FATTES DU 410 
BONHOMME!!! 420 


200 
200 
210 


"32(1 mieie) 
Rad LT 


blancs font uns 
fait marcher le 
8 l'arrete. 


sen 
F5û 
250 
PART 


350 
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140 REM #; TG 410 

150 BEM FRINCIFE : Quatre trous sont SCREEN (Z) 

creuses aleatoirement, il faut les HCHÉR (10, X, 102,1) 
eviter. ; HCHBR (10, X, 57, 1) 

160 REM 3 HCH&R{11,X,102,1) 
HCHBR(11,X,33,1) 
HCHBR(12,X,102,1) 
HCHBR(12,X,327,1) 
HCHBR (II, X, 107,15 
SOUND {100,-7,6,720,5) 
ÉEY (GE, 8) 
SCREEN {INT (RND#15) +1; 
SOUND (16, INT ÉRND&#200) +10, -1, 


15, change leur place. 

170 REM 

180 CALL CHAR(GA, MON) 

199 CALL COLOR(S8,12,12) 

200 C8LL COLORIS, IS, 125) 

216 CALL SCREEN(I3) 

220 CALL CLESF 

230 GOSUE 6ûo 

La CALL CHARCIGO, PIGTS19éCIi41209") 
255 CELL CHAR(IOZ, "O91714860C1936500) 


Fi MAI LA DS DETTE LA CD PA AVE A AU 
S60 CELL CHAR GIOAI, FECSSISGSCI4S ra) 


=i) THEN 790 


O0 


270 X=51 
280 U=100 

290 GOTO 25û 

300 U=101 10 REM FROGRAMME NO 10 
310 GOTO 5350 25 REM 

.. 


Æ 


Le 


80 REM COPYRIGAT 95 MAGAZINE 
79 REM ET ROGER DIRI 


CIE 
1 Di © À 


LR 


1 Pt + Fe 


L HCHRR (10, X,U, 1) 
(X£SC1)#{X< C2) 4 (XESCS) #4 (X< C4) TH 


E de On d 
n 
bi (3 


où GOSUE 400 


à REM KKHEHENEHERERÉERENEUE 


fi 
7h 
Lei 
5 


370 GOTO 700 
380 FOR DELAISI TO V 120 REM # QUATRE TROUS ET # 

390 NEXT DELAI 175 REM # DES ORANGES + 

400 CALL SOUND(S,-4,9,110,7) Q REM HAINE 

410 CALL KEY(O,K,5) à REM 

ann IE Seû THEN 490 Q REM PRINCIPE : Quatre oranges 

AEG IF Ezi3 THEN 670 inparaissent aleatoirement. 

440 IF K=ASC("MUITHEN 340 O0 REM Elles changent de place avec les 
450 IF K=ASC("AM)THEN 326 
46ù Vaik-352)#10 CHAR C128, "00 

470 IF K£ASC("V")THEN 496 C COLOR (13,13,13) 

490 V=S 190 Cé CHÉRI9A, Mon) 

490 CALL HCHAR(10,X,32, 1) Br COLOR (8, 12,12) 

500 IF M=0 THEN 520 210 COLOR (9, 15,6) 

Si Xek-1 F5 SCREEN (6) 

520 IF X<1 THEN 270 230 € CLE£R 

530 IF U=100 THEN 3560 240 HCHAR (11,1,128,448) 


ht Ve 


D CM 4 


2 fu ke 


CCR DS 
id 7 
2 0 


540 GOTO 28û 250 GOSUR 870 
SG CI=INT (RND&#S) +1 266 GOSUE 650 

Eh CT=INT (RNDEG) +9 2709 CALL CHÊR (100, "3036194C141209") 
570 CE=INT (RND#S) +17 285 CALL CHAR (102,"09121460193630") 
590 C4=INT (RND&8) +75 290 CALL CHAR(101,"T0S41986C142540") 
“00 RETURN 3200 CALL CHAR(123, "SCSEDFEFFFFF7E1C") 
400 CALL CLEAR 310 CALL COLOR (13,19,6) 

&10 CALL HCHÉR(11,1,94,96) 320 X=31 

620 CALL VCHAR(11,C1,32,3) 30 U=100 

830 CALL VCHAR(11,C2,32,3) à GOTO 400 

640 CALL VCHAR(11,C3,33,3) 9 U=101 

£50 CALL VEHBR(11,C4,32,3) 365 GOTO 400 

660 RETURN 370 M=0 

670 GOSURB 550 380 GOTO 400 

680 GOSUE 600 390 M=1 
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310 


THEN 


C2 | 


D 


IF U=100 THEN 
GOTO 320 
GO CI=INT (END48) +1 
D CR=INT (RND#8) +9 
Q CS=INT {RND#8) +17 
30 CA=INT (RND#6) +25 
Q RETURN 
REM 
LG CALL 
70 CALL 
 CALL 


340 


HCHBR {11,1,94,96) 
VCHAR(11,C1,32,3) 
VCHAR (11,02,32,25) 
70 CALL VCHBR(11,C3, 32, 35) 
CALL VCHAR(11,C4,32%,5) 
9 RETURN 
GOSUE 400 
750 GOSUE 650 
13 GOTO 450 
ï CALL SCREEN(2) 
770 FOR L=i0 TO 12% 
O CALL HCHBR(L,X,162,1) 
Q CALL HCHAR IL, X,32, 1) 
OO NEXT L 
Q CALL HCHÉR( 


C IS: R. 108,15 
:0 CALL SOUND(100,-7, 


1, 225, 


Voici un jeu dont le principe est très 
simple : l'ordinateur choisit parmi 
une liste contenue dans le pro- 
gramme un mot qu'il demande au 
joueur de reconstituer. Si la lettre 
proposée par le joueur existe dans le 
mot, elle s'inscrit à sa place dans le 
mot à chaque endroit (s’il y en a plu- 
sieurs) où elle doit apparaître. Dans 
le cas contraire, un élément du 
pendu s'ajoute. Lorsque le mot est 
complet, la partie est gagnée; elle est 
perdue si le pendu est complet avant 
la reconstitution totale du mot. 


Présentation du jeu 


La première tâche d’un programme 
de jeu bien conçu consiste, bien en- 
tendu, à présenter les règles. Les 
lignes 220 à 310 assurent ce service. 
Remarquez-y la présence de l’instruc- 
tion DISPLAY : cette instruction n’est 
pas disponible en Basic simple, mais 
seulement en Basic étendu. Seuls 
donc ceux des lecteurs qui disposent 
de ce module pourront faire fonc- 
tionner ce programme tel quel. 
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840 
856 
860 
2) 

870 
886 
870 
gQ0 
910 
920 
GEQ 
94 
950 
s&G 
970 
38 
go 


GOTO 


NEX 


RETURN 


C&LL 


IF (X£E 


CALL KEY(0,K,S) 
CALL SCREEN(INT (RND#15) +1) 
CALL SOUND (10, 


INT (RND#200)+110,3,-1, 


IF S=û THEN 84 

100 

FOR I=i TO 4 

HT) =INT (RND#32) +1 

CALL HCHBR(INT (RND#4)+4,EH(I), 


125) 


CALL HCHAR(10, X,32) 
CALL HCHÉR(S, X,U) 
HCHRR (9, X, 32) 
CALL HCHBR(S, X,U) 
CALL HCHBKR(S, X, 32) 
_EALL VCHBR (1, 
BCL))#(XE 


Ne Se FO) 


ET | 
B(2))æ#(X£HBCT))#CX 


43 +B (4) )THEN 1070 


1G10 
1020 CALL 
CALL 
CALL 
GOTO 


1950 


1040 


ES. 1050 


C&LL SOUND (50,200, 1) 
HCHER (9, X, Un) 
HCHBR (9, X,72) 
HCHÊR 


AS 


19, X « LU) 


Le jeu du Pendu 


Les lignes 140 à 180 utilisent l’ins- 
truction CALL KEY. Cette instruction 
doit toujours être suivie de trois va- 
leurs : 


- la première de ces valeurs est un 
indice donnant la composition du 
clavier. L'indice 0 laisse au clavier sa 
composition normale, telle qu'elle 
apparait sur les touches. 


- la seconde valeur sera le code 
ASCII de la première touche frappée, 
par exemple 78 si vous tapez N ou 
79 si vous tapez O 


- la troisième valeur enfin, indique si 
une touche a été frappée. Elle est 
égale à O tant que cet évènement ne 
s'est pas produit. Cela explique la 
ligne 150 : tant que la variable ETAT 
est nulle, on revient à la ligne 140, et 
ainsi de suite... De la sorte, le pro- 
gramme tourne sur lui-même en at- 
tendant que le joueur ait indiqué sa 
décision. 

La ligne 170 vérifie que le caractère 
frappé est bien ”’N’. Dans ce cas, le 
programme saute l'édition des règles 
et passe à la ligne 350. 


Edouard Jouan 


La ligne 180 vérifie ensuite que ce 
caractère frappé est bien ‘O7’ (dans 
le cas où il n’était pas ”’N’”). Si ce 
n'est pas le cas, le programme re- 
tourne à la ligne 140. Il est donc im- 
possible de poursuivre l'exécution de 
ia programme sans frapper ‘’N’” ou 


Création des formes et 
des couleurs 


Les lignes 350 à 590 composent les 
formes et couleurs des caractères 
graphiques utilisés par le pro- 
gramme : les caractères 96 à 98 se- 
ront utilisés pour le dessin de la po- 
tence (les numéros de caractères sont 
les codes ASCII de ces caractères). 
Les caractères 104 à 121 seront utili- 
sés pour la composition du pendu. 


Remarquez que l'instruction CALL 
COLOR est suivie, elle aussi, de trois 
valeurs : 

- la première est la série de caractè- 
res concernée: reportez-Vous aux 





codes ASCII du TI , et vous consta- 
terez que ces codes sont groupés par 
séries de huit. Lorsque vous détermi- 
nez une couleur, elle concernera 
l'ensemble de la série de caractères. 

- la seconde est la couleur choisie 
pour le caractère lui-même. 


- la troisième enfin indique la couleur. 


du fond sur lequel s’inscrira le carac- 
tère. 


Lecture du ”’lexique” 


Les lignes 620 à 660 lisent les mots 
placés dans les lignes de 2100 à 
2190. Ces dernières contiennent le 
lexique” du programme, c’est-à-dire 
la liste des mots qu’il connait. Le fait 
remarquable de l'instruction DATA 
est qu’elle n’obéit pas à la même loi 
que les autres instructions du Basic : 
elle peut être disposée n'importe où 
dans le programme. Plusieurs instruc- 
tions DATA disposées dans le pro- 
gramme ont le même effet que s’il y 
en avait une seule contenant toutes 
les données; de plus ces instructions 
peuvent être dispersées : seul compte 
l'ordre dans lequel elles se trouvent 
les unes par rapport aux autres. 


Le programme commence donc par 
ouvrir un tableau, appelé MOTS”, 
et y range les 100 mots du lexique. 


Corps du programme 


Après cette phase d'initialisation, 
nous arrivons maintenant au corps 
du programme. Celui-ci demande 
tout d’abord l’enfoncement d’une 
touche avant de commencer la suite 
de la procédure; puis il dessine la po- 
tence du pendu (lignes 940 à 970). 


Le choix du mot à deviner est la 
conséquence de la ligne 670 et des 
lignes 840 à 850 : RANDOM/ZE as- 
sure que le premier choix ne sera 
pas le même à chaque lancement du 
programme. La ligne 840 donne à la 
variable J une valeur aléatoire 
comprise entre 1 et 100, et la ligne 
850 donne à M$ la valeur du mot de 
rang J dans le tableau MOT$. 


La ligne 860 dispose autant de tirets 


30 


60 REM COPYRIGHT 99 MAGAZINE 


70 REM ET TISOFT-HOME 
8û 

q0 

100 CALL CLEAR 

110 CALL SCREEN(12) 


qu’il v a de lettres dans le mot à 
trouver. Les lignes 900 à 930 initiali- 
sent des variables et les lignes 940 à 
970 demandent l’entrée d’une lettre. 
De 980 à 990, on dispose cette lettre 
à la suite de la question posée. De 
1000 à 1020, on examine si la lettre 
proposée n’a pas déjà été donnée. 
Pour cela, on avait ouvert un tableau 
E$, de 30 éléments, dans lequel les 
lettres successivement proposées ont 
été rangées. En cas de concordance, 
on envoie le programme à la ligne 
2020 où un message est adressé au 
joueur. 


Le programme inscrit la lettre dans la 
partie droite de l'écran (1030), puis 
examine si elle correspond à une des 
lettres du mot recherché (1080 à 
1100). Si c’est le cas, il va à la ligne 
1180 qui inscrit la lettre à sa place 
dans le mot; on examine en 1210 si 
elle est la dernière lettre à trouver 
(fin gâgnante du jeu), ou non (retour 
à la boucle 1080-1100) 


Si la lettre proposée ne correspond 
pas à une lettre du mot, on se dirige 
(ligne 1170) vers la partie suivante 
du pendu à faire apparaître à l’écran. 
La procédure commençant à la ligne 
1760 consiste à afficher la dernière 
partie du pendu (sa jambe gauche) 


et se termine donc par la procédure 
de fin perdante du jeu. 


Dessin du pendu 


La tête se dessine grâce aux lignes 
1350 à 1420. Les épaules sont 
créées par les lignes 1430 à 1480. 
On voit ensuite apparaître le bras 


_droit (1490 à 1540), le bras gauche, 


le corps, la jambe droite, et enfin la 
jambe gauche. 


Les sons 


Les sons sont générés par l’instruc- 
tion CALL SOUND. Leur utilité dans 
ce programme est triple : 


- souligner la bonne perception par 
l'ordinateur de l’enfoncement d’une 
touche demandé par une instruction 
CALL KEY (c'est le cas par exemple 
à la ligne 160). Le caractère de la 
touche enfoncée n'apparaît en effet 
pas à l’écran et, sans ce trait sonore, 
le manipulateur pourrait être tenté de 
renouveler sa manoeuvre. 

- signaler au joueur l'apparition à 
l'écran d’un message qui lui est des- 
tiné. Les lignes 1130 et 2030 assu- 
rent ce service. 

- créer une musique, simple et courte 
pour souligner la victoire ou la dé- 
faite du joueur (lignes 1310 à 1330 
et 1840 à 1870, respectivement) 


Conclusion 


Le principe de ce jeu est en fait très 
classique pour les jeux de devinette. 
Vous pourrez aisément compléter le 
lexique du programme en ajoutant 
des lignes de DATA. Il convient alors 
de modifier en conséquence les 
lignes 620 et 840 pour tenir compte 
de l'accroissement du nombre de 
mots disponibles. 


Le graphisme aussi ne demande qu’à 
être amélioré. Il est ici d’une grande 
simplicité et ne sollicite que votre 
imagination pour devenir quelque 
chose de magnifique. Alors, à vos 
claviers. 


120 DISPLAY AT({5,8):"JEU DU FENDU" 
150 DISFLAY AT(6,1):"VOULEZ-VOUS LES REG 


LES (O/N) 


Fm 


140 C&LL KEY(O,CODE,ETAT) 

150 IF ETAT=0 THEN 140 

160 CALL SOUNDi100,2000,2) 

170 IF CODE=78 THEN 2350 

180 IF CODE=79 THEN 220 ELSE 140 
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190 REM HR EEE EE EEE 
200 REM ENONCE DES REGLES 
210 REM #XKEHESEERERÉERENRÉRRERE 


270 DISPLAY 
UN MOT" 
20 DISFLAY 
NT" 

340 DISFLAY 
ES TIRETS." 
250 DISFLAY 
LETTRE. * 
2840 DISFLSY 
S. LE AOF,” 
270 DISFLAY 
S& FLACE." 
290 DISFLÉEY 
U PENDU" 
290 DISFLAY 
IN," 

ECO DISFLAY 
j" 

H10 DISPLAY 
SES 


AT(8,3):"VOUS DEVEZ DEVINER 

AT(9,1):"DONT LES LETTRES 50 
AT(10,1):"REFRESENTEES FAK D 
AT(11,3): "VOUS FROFOSEZ UNE 

AT{12,1):"SI ELLE FIGURE DAN 
AT{13,1):"ELLE APFARAITRA A 
AT(14,1):"SINON UN ELEMENT D 
AT(15,1):"S" AJOUTER AU DESS 
AT(16,5):"LE JEU EST FERDU S 


AT(17,1):"LE PENDU EST COMFL 


XP REM ELHSMEEEELLRELREEHEÉEE 
Z5G REM FORME DES CARACTERES 
Tdi REM HHEHELELELÉEEERENENEX 


‘680 


800 
619 


IF CODE=78 THEN 760 


850 DISFLAY AT(Z4,1):"PRESSEZ UNE TOUCHE 
700 CALL KEVY(O,6,H) 

715 IF B=0 THEN 766 

720 CALL SOUND{106,2000,2) 
FTE0 REM HEEÉERERELÉÉÉRERÉEXEX 
74 REM FOTENCE 

750 REM HMKEREEEEERÉEEER EURE E 
7860 CALL CLERR 

770 CALL VCHÉR (4, 4,96, 14) 
780 CALL HCHAR(4,5,96,7) 

79 CALL VCHAR(S,10,97) 


CALL VCHBRIS, 11,98) 
REM RÉEEEEEEÉEEEEMÉEREREE 


815 REM CHOIX DU MOT ET AFFICHAGE DU NOM 
BRE DE TIRETS 
D REM EHEEEEKRERERERÉÉENESE 
850 D=4 
840 J=INT (RND#100) +1 
850 M$=MOT$ (J) 
840 CALL HCHBR (10, 16,95, LEN (MS) ) 
Q70 REM KEHEEERÉEEREÉRERÉENE 
geo REM CORFS DU JEU 
890 REM £EKEHEEEEERÉÉRERREINÉ 


PRIE) 


DIM E$(30) 


550 







380 
390 
40 
410 
420 
4EQ 
440 


450 




















CALL 


Tëo CALL 
370 C&LL 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


CHAR (97, "0101010101010101") 
CHÊR (98, "8080808080808080") 
CHAR (96, "EFFEFFFFFFEFFFEF") 
COLOR (9,14,1) 

CHAR (104, "OF10204080808080") 
CHAR (107, "FO08040201010101") 
CHAR (105, "8080804020100807") 
CHAR (106, "01010102040810E0") 
CHAR (108, "010101FF01010101") 
CHAR (109, "B08080FF 80808080") 
CHAR (110, "G000000F 10204080") 
1102040810204080") 

















460 CALL CHBR(111, "010204 

470 CALL CHAR (112, "O00000F 0080402701") 
480 CALL CHAR (113, "8040201008040201") 
490 CALL CHAR(114,"0303030303030307") 
500 CALL CHAR(115, "COCOCOCOCOCOCOCO") 
Si0 CALL CHAR(116, "0102020404080810") 
520 CALL CHAR(117,"1020204040808000") 
530 CALL CHAR(118, "O000000000000001") 
540 CALL CHAR(119, "8040402020101009") 
550 CALL CHAR(120, "0804040202010100") 
560 CALL 

570 CALL COLOR(10,10,1) 

580 CALL COLOR(11,10,1) 

590 CALL COLOR(12,10,1) 


Go F=i 
920 N=0 
QE Y=0 se Y=û 


À 


940 DISFLAY AT({21,1):"FROPOSEZ UNE LETTR 


Er 

950 CâLL SOUND (100, 2000,2) 
G&û CALL HEY(G,L,8) 

970 IF S=û THEN 960 

980 L$=CHRS (L) 

990 CALL VCHBR (21,25, 1) 
1Oû5 FOR G=F TO 1 STEF -1 
1010 IF Lé=ES$(G) THEN 2020 
1020 NEXT G 

1OZG CALL VCHAR (D, 31,1) 
1040 FeF+i 

1080 E${F)=zLé 

1060 D=D+i1 

1070 R=i 

1080 FOR X=1 TO LEN(M#) 


1090 IF L$=SE6GS (M$, X, 1) THEN 1180 


1100 NEXT X 
1110 ON R GOTO 1129,1720 


1120 DISFLAY AT(21,1):"FAS DE CHANCE" 


1130 CALL SOUND (500, 200,3) 
1140 FOR I=i TO 400 


GOQ REM #HHHERHELRÉEÉEÉÉEÉEÉÉEREEE 


605 REM MEMORISATION DU LEXIQUE 





Li0 FENM HRELRELREEMELEEREL RUE 
620 DIM MOT$(100) 

839 FOR Izi TO 199 

&4i REBD Z% 

250 MOTS(I)=7$ 

&éfi NEXT I 
870 RANDOMIZE 
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1150 
1180 


1170 ON N GOTO 1380,1460, 1570, 1580, 1640, 


1700 
1185 
1190 
1200 
1210 


1220 
Fra 


MNEXT I 
N=N+1 


1790 
CALL VCHAR(10, 15+X, L) 
Y=Y+1 


R=2 


IF Y=LEN(MS) THEN 1300 ELSE 1190 


DISFLAY &T(Z1,1):"EON CHOIX" 


230 


1240 
1250 
1260 
1270 
1280 


179ù 
187% 


CERN LE, 


CALL SOUND (500, 1000,3) 
FOR I=i TO 4ûû 

NEXT I 

GOTO 940 

FER HEELELELRERELEEEE NUE 
REM FIN GAGNSNTE 


REM ELHEEEELLELESÉREEEEEEX 


y DISPLAY AT(21,1):"GAGNE 
9 CALL SOUND (400, 784,7) 
9 CALL SOUND (400, 1588,7) 


à CALL SOUND(700,1319, 2) 
 GOTO 1910 

1 HEM HLHELELELESEEEÉEREENHX 
à REM TETE 

U REM HELEERELÉEELEREELSX 
à CALL VCHAR (6, 10,104) 

à CALL VCHAR(7, 10,105) 


CALL VCHAR(7, 11,106) 


3 CALL VCHBR (IS, 11,107) 
5 GOTO 94 
1 REM HÉELELELEESERSÉLEUME 


Hi REM EFAULES 


E0 BEM HERELLELEELERERELREX 
55 CALL VCHBR(S, 10,108) 
79 CÊLL VCHBR(8,11,109) 


1500 


1510 
1590 


15:50 
1545 
1580 
1565 
1570 
1580 
1590 


1600 


1819 


18 
1850 
1845 

Stats 
iéët 
1870 
1485 
1895 
1700 
17it 
1720 
1730 
1740 
1750 
1760 
1775 
1790 
1790 
1800 
1815 
1820 


) GOTO 940 


(HO REM KEREELELELELREEHEN SEX 


REM BRES DAOIT 

BEM HXSELHELRSLÉEEELEENEE 
CÊLL VCHÉR(8,9,110) 
CALL VCHÉR(IS, 8,111) 
GOTO 945 

REM BELLE EREerELEREEEEELLEX 
REM BR&S GAUCHE 

REM HEHLELRERRELEREREEESX 
CALL VCHBR(S, 13,117: 
CALL VCHÉRIS, 15,117) 
GOTO 945 

REM HRLERERREELELEREEXS 
REM CORFS 

REM HÉREERELRELELEELLSE 
CALL VCHAR(9,10,114,3) 
CALL VCHARI9,11,115,23) 
GOTC 94û 

REM EHEEEEERREÉELEREREEX 
REM JAMBE DROITE 

REM EXKELMELLELELEELEELX 
CALL VCHAR(IZ,10,116) 
CALL VCHBR(IZ, 10,117) 
CALL VCHBAR(IZ,9,118) 
CALL VCHBR(I4,9, 116) 
CALL VCHAR(15,9,117) 
GOTO 94û 

REM LEHEHEMEEUMEELMENRSE 
REM JSMBRE GAUCHE ET FIN 
REM RELEREUEEEREUEEREE SX 
CALL VCHAR(12,11,119) 
CALL VCHAR(1T, 11,130) 
CALL VCHAR(13,412,121) 
CALL VCHBR(14,12,119) 





1830 CALL VCHAR(15,17,120) 
1840 CALL SOUND{200,247,3) 
1850 CALL SOUND(200,247,2) 
1860 CALL SOUND(200,247,2) 
187 CALL SOUND (800, 196,2) 
1880 DISFLAY AT(21,1): "PERDU 1!" 
1890 DISFLAY AT(22,1):"LE MOT ETAIT" 
1900 DISFLAY AT(22,14):MS 

910 DISPLAY AT{24,1):"ENCORE UNE PARTIE 
7 {O/N)" 
1920 CALL KEY(0,C,E) 
1930 IF E=0 THEN 1920 
1940 IF C=78 THEN 1960 
1550 IF C=79 THEN 760 ELSE 1929 
1960 CALL CLEAR 
1970 DISFLAY AT(15,10):"AU REVOIR" 
à GOTO 2200 

FO HEM EELEMENLEEEERERESEASX 
000 FREM DEJA FAIT 


HO FEM HHEEELERELENEELRÉEEXE 


59 CALL SOUNDS (SON, EG, 25 
EDG FOR Hzi TO So 

à NEXT H 

EGéd GÛTO 545 

FHNPO BEM REBLERELREÉEEREEEEXSX 

2080 REM LEXIQUE 

O0 REM BÉRESESEESERELERHMEE 

2100 DATA MSISON, JARDIN, LIVRE, JOYEUX, FIL 
LETTE, VOITURE, FAUTEUIL, FÉILLE, DOIGT, ORET 
LLE 

21i D8TS EXPLICATION, GYMNSSTIQUE, EO&LA, 
HÉGON, SYMPATIQUE, SYMPHONIE, QUTIE, YAQURT, 
LELUE, 8MOUR 

2120 DÉTS JAMEON, STYLO, POTENCE, HILLET,H8 
LÊNCE, CAMION, CÉRSMEL, FOTSSON, GRENOUILLE, 
BOUTEILLE 

ELESG DATÉ TABOURET, BALÉYER, BCCENT, TRESOR 
TER, MYSTÈRE, BOTILLON, AHURT, INOUT, BOURGEC 
IS, FRUCILLE 

2140 DATS ORDINATEUR, CRÉYON, FENTALON, T£E 
LE, CHAISE, ETAGE, RANQUETTE, CALCULATRICE,E 
BNC, RIDEAL 

2150 DATA DISQUE, DISCOURS, FARLOFHONE, DEN 
TITION, ESFADRILLE, BRACELET, QUBRTZ, MELBNG 
EUR, RORINET, ETSMINE 

2160 DATA BRMOIRE, FLEUR, POMME, LUNETTE, LU 
MIERE, AMPHORE, ECRAN, TONNEBU, VIGNOBLE, BIE 
RE 

2170 DATA OREILLE, CHEVELURE, FEINTURE, LIE 
RAIRIE, STYLO, MENOTTE, CHÉNDELLE, LUSTRERIE 
s SERRURE , POUBELLE 

218906 DÂTA ELSAXON, VITRINE, MAGBSIN, SOULIER 
: CHEMIN, FROMENÊDE, CAMPAGNE, CIEL, JUSTICE, 
CHAUSSETTE 

190 DATA RÉADISTEUR, ENCEINTE, INTERRUFTEU 
F, TAILLEUR, SCHISTE, WHARF, ZERO, YACHT, MUSE 
BU, ESTSMINET 

2200 END 
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Fabriquez votre joystick 


A première vue, construire soi-même 
un joystick ne présente pas un 
énorme intérêt : le matériel fourni par 
le constructeur n’est pas particulière- 
ment ruineux et de plus il est bien 
adapté à sa fonction. Le montage 
proposé dans 799” aujourd’hui ré- 
pond cependant à un besoin spécifi- 
que : permettre à un très jeune en- 
fant d'accéder à l'ordinateur, sans 
pour autant compromettre la ’’sur- 
vie” de ce dernier. 

En effet, rares sont les enfants de 
cinq ans ou moins qui, face au cla- 
vier, se contentent d’effleurer les tou- 
ches ou de manipuler avec calme le 
levier d’un joystick. 

Tout au contraire, le comportement 
habituel de l’enfant est de rentrer 
dans le jeu avec toute la fraîcheur et 
la spontanéité de son âge... sans bien 
comprendre que ce jouet supporte 
moins bien les coups et les gestes 
brusques que son ours en peluche. 
La première solution possible à ce 
problème est bien entendu de pren- 
dre l'enfant sur ses genoux et de ten- 
ter de canaliser ses gestes. Cette so- 
lution n’est pas à écarter tout-à-fait, 
mais est-il bien certain que l’enfant 
ait envie d’être en permanence sous 
surveillance ? 


Une autre solution, plus radicale, 
consiste à interdire purement et sim- 
plement l'usage de l'ordinateur aux 
enfants qui ne possèdent pas encore 
un minimum de maîtrise d’eux- 
mêmes. Avouons qu'il serait triste de 
les priver ainsi de ce qu’ils considè- 
rent, à juste titre, comme un merveil- 
leux jouet: avant même de savoir 
lire ou écrire, un enfant peut parfaite- 
ment dessiner ou jouer de la musi- 
que, toutes choses qu’un ordinateur 
peut lui permettre de faire. Pourquoi, 
dans ces conditions, le priver d’un tel 
compagnon de jeu ? 

Conçu avec cette arrière-pensée, le 
joystick ’fait main” devait répondre 
aux exigences d’un ”’cahier des char- 
ges” très simple : 

1 - le montage devait être fixé dans 
un boîtier métallique susceptible de 
résister à tous les chocs et à toutes 
les sollicitations auxquelles peut le 
soumettre un jeune enfant; 

2 - pour des raisons évidentes de 
simplicité et de solidité, il ne devait 
comporter aucune pièce en mouve- 
ment, ce qui excluait la solution clas- 
sique du ‘manche à balai”; 

3 - les fonctions du système devaient 
néanmoins permettre à l’enfant d’in- 
tervenir dans des programmes adap- 
tés à son âge. 
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La solution adoptée consiste donc à 
regrouper sur la même face d’un 
boîtier de montage 4 interrupteurs. 
Selon le programme utilisé, le sys- 
tème fonctionne soit en déterminant 
8 directions (comme avec un joystick 
classique), soit en fournissant à l’en- 
fant 4 choix d'intervention dans le 
déroulement d’un programme, sui- 
vant les fonctions attribuées à cha- 
cune des touches. 


Le principe de fonctionnement est 
très simple: comme l’indiquent les 
instructions d'installation du TI-99, la 
prise à 9 broches destinée aux télé- 
commandes se trouve sur le côté 
gauche de l'appareil. Sa forme est 
celle d’un trapèze dont la base la 
plus large est orientée vers le haut. 
On remarque (à condition d’avoir de 
bons veux) que ces broches sont nu- 
mérotées de 1 à 9 (figure 1). 


Pour déterminer la fonction de ces 
broches, on lance le programme sui- 
vant (après avoir déverrouillé la tou- 
che ALPHA-LOCK) : 


100 CALL JOYST(1,A.B) 

110 IF (A= O)x (B= 0) THEN 100 
120 PRINT A;B 

130 GOTO 100 


Puis, à l’aide d’un fil électrique de 
quelques centimètres, on met en 
contact les broches deux à deux, en 
observant les valeurs affichées à 
l'écran. On obtient ainsi les données 
du tableau suivant : 


Aucun contact 
Contact broches 


ea 
8- 
5- 
9- 


7 
7 
7 
7 


REM COFYRIGHT 99 MAGAZINE 
Oo REM ET ROBERT FELTIER 
REM 
Q REM 
CALL CLEAR 
PRINT "RELEVEZ LA TOUCHE" 
PRINT 
PRINT "alpha lock" 
5 PRINT 
PRINT "ET ENFONCEZ UNE TOUCHE" 
PRINT 
CALL KEY(0,K,S) 
IF S=0 THEN 140 
CALL CHAR(96,"FFFFFFFFFFFFFFFF") 
CALL CLEAR 
O X=10 
Y=10 
CALL SCREEN(2) 
CALL COLOR (2,7,8) 
CALL COLOR(9,7,2) 
CALL JOYST(1,A,B) 


Robert Peltier 


La broche 7 sert, ainsi que vous le 
voyez, exclusivement aux branche- 
ments du joystick numéro 1. D’autres 
combinaisons, de structure similaire, 
sont utilisées pour le joystick numéro 
2. Nous vous laissons le soin de les 
découvrir 


En remplaçant la ligne 100 par 100 
CALL JOYST(2,A,B), il est égale- 
ment possible de déterminer les 
bornes à utiliser pour le montage 
d’un deuxième joystick. 


La réalisation de notre joystick ne 
nécessite donc que la mise en place 
d’interrupteurs dans un boîtier et la 
liaison du système avec l’ordinateur 
suivant le schéma de la figure 2. La 
seule difficulté rencontrée est de per- 
cer les 5 trous dans le boîtier (4 pour 
les interrupteurs +1 pour le câble de 
liaison). 


Plus délicat est le problème de la liai- 
son de ce montage avec la prise de 
télécommande: celle-ci se fait à 
l’aide d’un cordon spirale et d’une 
prise Canon DB, elle-même logée 
dans un capot: la taille réduite des 
broches de la prise Canon nécessite 
l'emploi d’un fer à souder à panne 
fine et. beaucoup de patience. 


Ce joystick n’est certainement pas 
aussi précis qu’un joystick muni du 
classique ’manche à balai”, mais il 
est cependant possible de déterminer 
grâce à lui les 8 directions du dépla- 
cement d’un mobile sur l’écran en 
agissant soit sur un seul interrupteur, 
soit sur deux interrupteurs contigus. 
Le programme de la figure 3 permet 
de vérifier le bon fonctionnement du 
joystick. 


NDLR : Dans un premier temps, Ro- 
bert Peltier n’est pas vendeur de son 
joystick. À vous donc de le bricoler ! 


CALL KEY(0,K,5) 
IF K=32 THEN 170 
IF X<1 THEN 270 ELSE 280 
X=X+1 
IF X>24 THEN 290 ELSE 300 
X=X-1 
IF Y{1 THEN 310 ELSE 320 
Y=Y+1 
320 IF Y>32 THEN 3350 ELSE 340 
330 Y=Y-1 
340 CALL HCHARIX, Y,96) 
350 CALL HCHAR(X,Y,42) 
360 IF B=-4 THEN 370 ELSE 380 
370 X=X+1 
380 IF B=4 THEN 390 ELSE 400 
3970 X=X-1 
400 IF A=-4 THEN 410 ELSE 420 
410 Y=Y-1 
420 IF A=4 THEN 430 ELSE 230 
450 Y=Y+1 
440 GOTO 230 


Voir schéma page suivante 





Dans le dialogue homme-machine, 
ce qu'’affiche l’ordinateur est, par dé- 
finition, correct. Les réponses de 
l'opérateur, par contre, sont beau- 
coup plus sujettes à erreur et rendent 
de ce fait les programmes vulnéra- 
bles. Pour obtenir une information, 
les programmes les plus simples utili- 
sent l'instruction INPUT ; cependant 
cette macro-instruction n’est absolu- 
ment pas protégée contre les erreurs 
de l’utilisateur. Son premier handicap 
réside dans le fait que cette instruc- 
tion manifeste son indignation par 
des messages dont l'interprétation est 
réservée au seul initié. Citons quel- 
ques exemples tirés du bêtisier le 
plus courant : 


10 INPUT ADRESSE” :AD$ 
Réponse de l’opérateur : 
22, RUE DES ALLONGES 
(ENTER) 

Diagnostic de la machine : 
INPUT ERROR IN 10 
TRY AGAIN : 

40 INPUT ”’PRIX UNITAIRE” :PU 
Réponse de l’opérateur : 
9.90 F (ENTER) 

Diagnostic de la machine : 
INPUT ERROR IN 40 
TRY AGAIN : 


60 INPUT NOTE SUR ” :NO 


Figi: prise laterale 


e2:A) boitier 


8 fiche canon (sans capot} 


Le rrupteurs 


Appelez-moi KEY 


Réponse de l’opérateur : 
(ENTER) 

Diagnostic de la machine : 
INPUT ERROR IN 60 

TRY AGAIN : 


Le deuxième handicap de l'instruc- 
tion INPUT est sa totale impuissance 
à transmettre les caractères de 
contrôle qui peuvent donner de la 
souplesse au dialogue. 

Pour éviter les limitations de l’instruc- 
tion INPUT, les micro-ordinateurs 
évolués disposent d’une instruction 
élémentaire qui déchiffre un par un 
chaque caractère tapé au clavier 
pour en traiter l'information selon les 
besoins du programme. Sur le TI- 
99/4A, cette instruction est le sous- 
programme appelé KEY ; ailleurs, ce 
sera l’ordre GET, ou la pseudo-varia- 
ble INKEY$. 


D'une très grande souplesse d’utilisa- 
tion, le sous-programme KEY utilise 
un argument d’entrée (le mode d’uti- 
lisation du clavier), et deux variables 
de sortie (le code de la touche en- 
foncée et une variable d’état indi- 
quant si une touche est actionnée ou 
reste enfoncée). La syntaxe d'emploi 
du sous-programme KEY est la sui- 
vante : CALL KEY(mode clavier, 
code touche, variable d'état). Afin de 


Bernard Braun 


faire preuve d'originalité dans les 
exemples utilisés, le mode clavier, 
lorsqu'il n’est pas explicite, sera ap- 
pelé MODE ; le code de la touche 
sera renvoyé sur la variable CODE, 
KEY ou simplement K ; et la variable 
d'état sera nommée STATUS ou S. 

Le programme 1 ci-après fait appa- 
raître les variations de la variable 
d'état STATUS ; notons que si au- 
cune touche n’est actionnée, le code 
retourné par le sous-programme KEY 
est —1 et n’est donc pas un code 
ASCII. Le programme 2 illustre les 
utilisations classiques de la variable 
d'état lors d’une entrée par clavier. 


Dans un premier cas, on entre 
TEST=-—1 et le programme écrit des 
—1 sur l’écran tant qu’une touche est 
appuyée. 

Pour TEST=0, il y a écriture de 
zéros sur l'écran seulement quand 
une touche est enfoncée. 

Enfin, si on entre TEST=1, la ma- 
chine écrit un 1 unique lors de la 
pression sur une touche. 


Le clavier du TI-99/4A, très sophisti- 
qué, peut être configuré de 4 façons 
différentes selon les valeurs de l’argu- 
ment MODE. 

Les modes 1 et 2 servent à diviser le 
clavier de la console en deux moitiés, 
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10 CALL KEY(0, CODE, STATUS) 

20 PRINT "STATUS: *3STATUS;" 
30 6070 10 

40 END 


CODE: ";CODE 


Programme 1 


ce qui est utile pour certains jeux. 
L’argument de clavier 3 est automati- 
quement choisi au départ (valeur par 


défaut) par le TI Basic, la touche : 


CTRL étant alors inactive. Avec les 
arguments 4 et 5, toutes les touches 
sont actives; les codes des caractères 
de contrôle sont compris entre 1 et 
31 dans le premier cas, entre 129 et 
159 dans le second. Notons que le 
mode 4 présente l’avantage de confi- 
gurer un clavier compatible avec des 
claviers de grande diffusion comme 
celui de l'Apple II, et que, dans ce 
mode, ENTER a toujours le code 13, 
contrairement à ce qu'affirme le ma- 
nuel d'utilisation. 


La déclaration d’un mode de clavier 
nul dans CALL KEY ne définit pas 
une nouvelle configuration, mais 
conserve la configuration précédente, 
ce qui économise le temps d’une 
réaffectation à chaque appel du sous- 
programme. 


Le troisième programme de démons- 
tration affiche, selon la configuration 
de clavier choisie, le code d’une tou- 
che pendant qu’elle est enfoncée. 


Les programmes élémentaires 1, 2 et 
3 ont servi à disséquer le fonctionne- 
ment du sous-programme KEY. Pour 
montrer ce sous-programme en situa- 
tion, voici une ’subroutine” en vraie 
grandeur tirée d’un programme de 
calcul des moyennes de notes dans 
une classe. 


100 REN #CALL KEY DEMD# / ENTREE DE NOTE SUR 
YINET 

110 REN ENNA PARIS NORD / DEPARTEMENT MATHEM 

ATIQUE 

120 REX 

130 REN VARIABLES INTERNES: FLAP, KEY, STATU 

$ 

40 REX VARIABLE EN ENTREE: NEANT 

150 REM VARIABLE EN SORTIE: FLAG, NOTES 

180 REN ADRESSE D'ENTREE: 200, MODE CLAVIER: 
4 

170 REM 

180 CALL SOUND(300, 196,01 

190 PRINT "NOTE ANNULEE* 

200 LET FLAG=0 

240 LET FLAP=0 

220 LET NOTES="Q" 

230 PRINT") " 


Programme 4 
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10 INPUT "TEST STATUS ":TEST 
20 PRINT “STATUS = *; 

30 CALL KEY(O,KEY, STATUS) 

49 IF STATUSC)TEST THEN 30 
50 PRINT TAB(10); STATUS 

60 GOTD 30 


Programme 2 


Le programme 4 n'est pas conçu 
pour être autonome. Pour l’expéri- 
menter, il est bon de l’insérer dans 
un programme tel que notre exemple 
4bis, programme qui définit une fois 
pour toutes la configuration du cla- 
vier en mode 4 et exploite les para- 
mètres renvoyés par la subroutine. 


Pour paraître dans le vent, de nom- 
breux périodiques dans les spécialités 
les plus variées publient des pro- 
grammes en Basic. Ces programmes 
sont intéressants et leur fonctionne- 
ment garanti, mais ils sont toujours 
spécifiques d’une machine particu- 
lière. Le sport à la mode devient la 
transcription d’un programme quel- 
conque pour le rendre compatible à 
un autre système. Dans cet esprit, il 
est intéressant de comparer les im- 
plantations des trois procédures pa- 
rallèles GET, INKEY$ et CALL KEY. 


La syntaxe de l'instruction GET est 
extrêmement simple : GET(nom de 
variable) affecte à la variable men- 
tionnée la première valeur lue au cla- 
vier, en général un caractère. Cer- 
tains appareils acceptent aussi des 
variables numériques, mais nous 
n'envisagerons pas ce cas. 

Le fonctionnement de l'instruction 
diffère légèrement selon la technique 
employée pour la scrutation du cla- 
vier et, à ce titre, la comparaison des 
systèmes Commodore et Apple II est 
significative. Le clavier des CBM est 


249 CALL KEV{O,KEY, STATUS) 

259 IF STATUS(?1 THEN 240 

280 IF (KEV)47)#(KEVCSS)THEN 370 
270 IF KEY=46 THEN 350 

280 IF KEY=13 THEN 400 

290 IF (KEY=2}+(KEV)S)THEN 320 
300 LET FLAG=KEY 

310 GOT 400 

320 IF KEV=24 THEN 180 

330 IF KEYC)44 THEN 249 

340 LET KEY=46 

350 IF FLAP=1 THEN 249 

360 LET FLAP=1 

370 LET NOTES=NOTESECHRS (KEY) 
380 PRINT CHR$IKEY); 

390 60TO 249 

400 IF VAL{NOTES) >20 THEN 180 
419 RETURN 


lu régulièrement soixante fois par se- 
conde, si bien qu'un GET A$ a 
toutes les chances d’affecter à la va- 
riable A$ la valeur CHR$(0) qui ne 
correspond à aucune touche enfon- 
cée. Pour: traduire exactement une 
telle instruction par un CALL KEY il 
faut quatre lignes : 


100 CALL KEY(0,KEY,STATUS) 
101 IF STATUS =1 THEN 103 
102 LET KEY=0 

103 LET A$—=CHR$(KEY) 


Cette traduction, pour intéressante 
qu’elle soit, est irréaliste car, dans la 
quasi-intégralité des programmes, le 
caractère nul est éliminé par un test. 
On trouve alors les montages équiva- 
lents : 


1 - GET : 
100 GET A$ 
110 IF A$=”” GOTO 100 


2 - KEY : 

100 CALL KEY(0,KEY,STATUS) 
101 IF STATUS<>1 THEN 100 
102 LET A$=CHRS(KEY) 


Le test de la ligne 110 est inutile en 
TI-Basic. 


Le clavier de l'Apple II, lui, génère 
un signal ”strobe” à chaque action 
sur une touche. Ce signal est détecté 
par l'instruction GET elle-même pour 
bloquer le programme tant qu’une 
nouvelle touche n’est pas enfoncée. 
Les trois lignes 100, 101 et 102 cor- 
respondent à une ligne unique en 
Basic Applesoft : 


100 GET A$ 


CALL KEY et INKEY$ 


Dans de nombreux systèmes à base 
de Z80, comme le Sinclair ZX81, 
INKEY$ est une variable dont la va- 
leur, déterminée par le système, est 
le caractère nul quand aucune tou- 
che n’est enfoncée, et le caractère de 
la touche actionnée dans le cas 
contraire. L'utilisation classique de 
cette pseudo-variable tient en deux 
lignes dont la transcription en CALL 
KEY prend trois lignes : 


1 - INKEY$ : 


100 LET A$=INKEY$ 
110 IF A$=”” THEN GOTO 100 


10 INPUT “MODE *:NODE 

20 CALL CLEAR 

30 CALL KEVCMODE, KE, STATUS) 
40 IF STATUS=0 THEN 30 
50 PRINT "MODE: ":NODE, 
60 CALL KEY(O,K, 5) 

70 IF S=0 THEN 20 ELSE 40 
80 END 


Programme 3 


KEY: "ÿKEY 





30 


10 6078 48 
166 REM ICI PREND PLACE LE 

300 REX SOUS PROGRAMME P.4 

419 REN D'ENTREE DE NOTE 

489 CALL KEY(4,KEY, STATUS) 

470 PRINT 

400 PRINT “TAPEZ UNE NOTE, PUIS ENTER* 
490 PRINT * CONTROL À POUR ABSENT" 

00 PRINT * CONTROL C POUR CESSER” 
310 6OSUB 206 

S20 PRINT 

530 IF FLABC0 THEN éd 


940 PRIRT “VOUS AVEZ TAPE LA NOTE"; VAL (NOTES 
Se0 5070 470 

S60 IF FLAS=3 THEN 590 

970 PRINT “ELEVE ABSENT* 

580 EOTO 470 

990 PRINT “ses FIR #8" 

600 END 


Programme 4 b 


2 - CALL KEY : 

100 CALL KEY(0,KEY,STATUS) 
110 IF STATUS=0 THEN 100 
120 LET A$=CHRS$(KEY) 


Ces différents exemples de la trans- 
cription au plus près de l'instruction 
GET ou de la pseudo-variable 
INKEY$ par un sous-programme 
KEY sont systématiquement défavo- 
rables à ce dernier. Cela est normal : 
la traduction littérale d’un pro- 
gramme Basic d’un dialecte dans un 
autre ne peut qu'alourdir ce pro- 
gramme. Pour comparer la souplesse 


et le volume des trois procédures: 


présentées ici, il est plus sage de les 
juger en situation dans quatre études 
de cas. 


Premier cas : arrêt du programme 
tant qu'aucune touche n’est action- 
née. 

1 - GET : 

500 GET A$ 

510 IF A$=""” GOTO 500 


2 - INKEY$ : 
500 IF INKEY$= 
GOTO 500 


3 - CALL KEY : 
500 CALL KEY(0,K;,S) 
510 IF S=0 THEN 500 


Deuxième cas : attente du retour 
chariot (ENTER ou NEWLINE). 

1 - GET : 

800 GET A$ 

810 IF A$ CHR$(13) GOTO 800 


2 - INKEY$ : 

800 IF INKEY$ CHR (118) then 800 
(notons que le ZX81 n'utilise pas les 
codes ASCII) 

3 - CALL KEY : 

800 CALL KEY(0,K,S) 

810 IF KEY=13 THEN 800 


EE] THEN 


Troisième cas : choix multiple (A, 

B, C et D par exemple) 

1 - GET : 

900 GET A$ 

910 IF A$="’A” OR A$= 
THEN 900 

920 ON ASC(A$)-64 
GOTO 100,110,120,130 


2 - INKEY$ : 

900 LET A$=INKEY$ 

910 IF A$=”"A” OR A$= 
THEN 900 

920 ON ASC(A$)-64 
GOTO 100,110,120,130 


3 - CALL KEY : 

900 CALL KEY(O,K,S) 

910 IF (K 65)+(K 68) THEN 900 

920 ON K—64 GOTO 100,110, 
120,130 


Quatrième cas : 
res. 

1 - GET : 

200 GET A$ 

210 IF A$=""” THEN 200 


300 PRINT A$ 

310 GOTO 200 

2 - INKEY$ : 

200 IF INKEY$=""”" THEN 200 
210 LET A$=INKEYS$ 


300 PRINT A$ 
310 GOTO 200 


HD)? 


Qi ps 


entrée de caractè- 


50 REM =========2=2=2=22222227 
6û REX COPYRIGHT 99 MAGAZINE 
70 REN ET BERNARD BRAUN 


106 CAiL SCREEN(R) 

119 6070 44 

120 REN #CALL KEY DEHDS / ENTREE DE NOTE SUR 
VINGT 

139 REM ENNA PARIS NORD / DEPARTEMENT MATHEN 

ATIQUE 

140 REM 

159 REN VARIABLES INTERNES: FLSP, KEY, STATU 

C 

{6ù REN VARIABLE EN ENTREE: NEANT 

170 REM VARIABLE ER SORTIE: FLBG, NOTES 

190 REM ADRESSE D'ENTREE: 200, MODE CLAVIER: 
n à 

190 REX 

200 CALL SCUXD{300, 196,0) 

219 PRINT “ NOTE ANNULEE* 

220 LET FLAG=0 

230 LET FLAP=G 

240 LET NOTES="0" 

259 PRINT"  } *: 

28ÿ CALL KEY{O,KEY, STATUS) 

270 IF STATUS}! THEN 260 

280 IF (KEY}47)#(KEYES9)THEN 300 
290 IF KEV=48 THEN 370 

300 IF KEY=13 THEN 420 

Programme 4 + 4 b 


3 - CALL KEY : 
200 CALL KEY(0,K;S) 
210 IF S<1 THEN 200 


300 PRINT CHRS(K) 
310 GOTO 200 


Exception faite du choix multiple en 
INKEY$, les procédures citées sont 
extraites de programmes tournant sur 
CBM 3000 et 4000, ITT 2020, 
Apple II, ZX81, ou TI-99/4A. Ces 
procédures n'ont pas été sélection- 
nées pour leur généralité ou leur dif- 
fusion, mais à cause du caractère 
exemplaire qu’elles présentent. 

En quise de conclusion, nous pour- 
rions suggérer à tout utilisateur po- 
tentiel d’un sous-programme KEY de 
répondre d’abord aux questions sui- 
vantes : 

- le programme attend-il l’état d’une 
touche ou l’action sur une touche 
(transition) ? Dans le premier cas, le 
test de la variable STATUS peut être 
remplacé par une test de signe sur la 
variable KEY 

- la valeur de la touche concernée 
est-elle importante ? Dans la néga- 
tive, le test de la variable KEY peut 
être omis. 

- dans l’affirmative, cette valeur inter- 
vient-elle sous forme d’un caractère 
ou sous forme numérique ? 


310 IF (KEN=2)+(KEVSTI THEN 340 

320 LET FLAGZKEY 

530 EOTE 420 

340 IF KEY=24 THEN 200 

350 IF ÉEYOH44 THEN 260 

3hû LET KEY=46 

370 IF FLAP={ THEN 260 

386 LET FLAP={ 

390 LET NOTES=NOTESLEHRE KEY) 

400 PRIHT CHRSIKEY): 

410 GOTO 240 

420 IF VAL{NOTES}>20 THEN 200 

430 RETURN 

44 CALE KEV{4 KEY STATUS) 

430 PRINT 

480 PRINT "TAPEZ UE NOTE, PUIS ENTER" 
47 PRINT * CONTROL À POUR ABSENT* 
480 PRIAT * CONTROL C POUR CESSER" 
490 GOSUR 220 

500 PRINT 

S10 IF FLABCH( THEN 540 

920 PRINT “VOUS AVEZ TPE LA NOTE*; VAL (NOTES 
j 

30 GOTO 450 

940 IF FLAG=3 THEN 570 

goû PRINT “ELEVE ABGENT® 

deû GOTO 455 

570 PRINT “ess FIN vs4° 

380 END 
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La sollicitation d’un emprunt est une 
situation à laquelle tout le monde est 
confronté un jour ou l’autre. Cepen- 
dant, très peu de gens savent 
comment en sont calculées les men- 
sualités de remboursement. J’ai dé- 
couvert, un jour, la formule permet- 
tant de calculer la mensualité pour 
un emprunt à remboursements cons- 
tants. J’en ai profité pour construire 
un programme autour de cette for- 
mule, en faisant en sorte que cette 
construction puisse servir d'exemple 
pour d’autres applications (à vous de 
les imaginer!) 


Principe du programme 


Le programme, tel que vous pouvez 
le voir, est écrit en Basic Etendu : j'ai 
en effet utilisé au maximum les ins- 
tructions DISPLAY AT et ACCEPT 
AT, disponibles seulement dans ce 
langage. Le principe de base en est 
le suivant : 

1 - le manipulateur indique les 4 va- 
leurs servant de base au calcul de la 
mensualité : montant de l'emprunt, 
taux hors assurance, taux d’assu- 
rance et durée de remboursement. 
ACCEPT AT permet de diriger son 
action directement là où elle est né- 
cessaire et nulle part ailleurs. 

2 - des calculs intermédiaires sont 
faits sur les taux et affichés sur 
l'écran comme faisant partie intégrale 
des données de base. 

3 - le montant de la mensualité est 
calculé à la ligne 330. Remarquez à 
ce sujet la structure de la formule : 
INT(100xvaleur+0.5)/100 permet 
d'obtenir un montant arrondi au cen- 
time le plus proche. 

4 - la ligne 340 réalise l’affichage de 
ce montant. Le USING qu’elle 
comporte formate cet affichage en un 
montant à deux décimales. Ainsi, 
même les zéros non significatifs se- 
ront présents ce qui, dans le cas d’un 
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Programmes d’aide 
à la décision 


Didier Bicking 


montant en francs et centimes, est 
quand-même plus agréable. 

5 - de la même manière, la ligne 350 
calcule et affiche le montant total des 
remboursements. 

6 - le manipulateur peut ensuite mo- 
difier l’une des données. Aussitôt 
qu'il a procédé à cette modification, 
l'ensemble des calculs est refait et la 
possibilité lui est offerte de faire de 
nouvelles modifications. 

Pour obtenir cette dernière caractéris- 
tique du programme, j'ai disposé les 
instructions de rentrée des données 
dans un ensemble de sous-program- 
mes (lignes 470 à 500). Ces sous- 
programmes sont appelés une pre- 
mière fois à partir de la ligne 250 
pour la rentrée des données de dé- 
part, puis une deuxième fois à partir 
de la ligne 420 pour opérer les modi- 
fications. 

Remarquez que toutes les instruc- 
tions ACCEPT AT comportent un 
VALIDATE. Les lignes 480 à 500 ac- 
ceptent, en plus des chiffres, les 
autres signes numériques dont no- 
tamment le point décimal. La ligne 
510 demande le nombre de mensua- 
lités. Il est donc hors de question d'y 
voir figurer autre chose qu’un nom- 
bre entier et le VALIDATE(DIGIT) 
n’autorisera pas la rentrée d’un point 
décimal. 


Extensions possibles de 
ce programme 


La première extension envisageable 
est, bien entendu, de faire imprimer 
par le programme ce qui apparaît sur 
l'écran, du moins pour ceux qui dis- 
posent d’une imprimante... 

Ce programme peut avoir deux types 
d'utilisation inverses consistant à re- 
chercher par tâtonnements le mon- 
tant que vous pouvez emprunter en 
fonction de votre capacité d’endette- 
ment, ou le taux d’un crédit qui vous 
est proposé avec pour seules indica- 


tions les montant, durée et mensuali- 
tés de remboursement. Il vous faut 
alors remplir les trois rubriques dont 
les montants sont connus, et faire 
des essais successifs pour la valeur 
de la dernière rubrique jusqu’à l’at- 
teinte du résultat souhaité. 


Cette structure de programme peut 
être utilisée pour de nombreuses ap- 
plications, notamment dans le do- 
maine des outils d’aide à la décision. 
Le principe est le suivant : 

1 - un certain nombre de valeurs 
présentent entre elles des rela- 
tions mathématiques précises ; 

2 - toutes ces relations aboutissent à 
la composition d’un résultat 
final ; 

3 - le problème est de savoir quelle 
est l'influence sur le résultat de 
la variation d’une ou plusieurs 
de ces valeurs de base. 


Le principe de base des célèbres pro- 
grammes Visicalc (de la société Visi- 
corp) et Multiplan (de la société Mi- 
crosoft) n’est rien d’autre que cela! 
Voici d’ailleurs un second pro- 
gramme qui illustre mon propos. Il 
s'agit cette fois de l'établissement 
d’un compte d’exploitation prévision- 
nel pour une PME. 


Compte d’exploitation 
prévisionnel 


Le fonctionnement de ce programme 
est le suivant : 

- on entre successivement les valeurs 
des 9 rubriques de débit du compte, 
puis des 9 rubriques de crédit; 

- un tableau est ensuite présenté, fai- 
sant apparaître le résultat. Ce résultat 
est présenté de manière comptable : 
un bénéfice est écrit au débit, une 
perte au crédit, de sorte que les to- 
taux de colonnes s’équilibrent; 

- Il est alors possible .de modifier indi- 
viduellement chacune des rubriques, 
au débit ou au crédit. Après chaque 
modification, le compte est entière- 
ment recalculé. On peut alors juger 
directement du résultat de chaque 
décision de stratégie de l’entreprise, 
et ajuster ces décisions en fonction 
du résultat recherché. 


De nombreux programmes peuvent 
être construits selon un modèle iden- 
tique. Ils permettront à leur utilisateur 
de prendre, en parfaite connaissance 
de cause, la bonne décision au bon 


«moment. 





Programme ”Prêt” 


50 REN 
60 REX COPYRIGHT 59 MAGAZINE 
76 REM ET DIDIER BICKINS 


i90 CALL CLEBR :: CALL SCREEN(I4) 

110 REM SEREEHENEEEHEHENNNEES 

126 REM PREPBRATION DE L'ECRÉN 

130 REM EHSFEEEGENEEENSSEEES 

140 DISPLAY ATI(,2):"EMPRUNT & REMBOURSEMENT 
5° :: DISPLAY AT(2,7): CONSTANTE" 

130 DISPLAY AT ES 0e 


165 DISPLAY ATEÉ, 1: 1 -HONTANT ;” 

179 DISPLAY ATIS,13:"2-TAUX HORG AG: :: DIS 
PLAY ATI7, 3h: "sgit sensueli" 

180 DISPLAY ATI9, 1): "3-TAUX ASSUR, :* 1: DIS 
PLAY ATHQ,Shi'egit sensuel:* 
196 DISPLAY ATI2,3): "TAUX TOTAL 
LAY AT{I3,3}: "suit sensuel: * 

209 DISPLAY ATIIS, fi: *4-NOMBRE DE* :: DISFLA 
Y ATII8,3}: "MENSUALITES :° 

210 DISPLAY ATOUT, OH mmmemanne 


s" ge DISP 


220 REM EHESS 
230 REM APPEL DES SOUS-PROGRANMES DE RENTREE 


236 GOSUB 480 :: GOCUB 490 :: GOSUB 900 :: G 
GEUB 519 


290 THB=TR/1200 :: DISPLAY AT(7, 171: TAB 
300 TMAG=TAS/1200 2 DISPLAY ATH1O, 17): TMS 
310 TT=TB+#TAS s: DISPLAY AT(12,17):TT 
320 TAT=TT/1200 :: DISPLAY AT(13, 17): TNT 
330 RMSIATILOGEMONTETAT/ (IC {L4THT)#-NEM) }45 
9) /100 +: DISPLAY ATUS, 3): "MONTANT 

DES® s1 DISPLAY AT119,3):"MENSUALITES :° 
“340 DISPLAY AT(IS, 7) SUGING “HE. HF": PA 
350 TR=RMEMEN 1: DISPLAY AT(21,3):"G0IT TOTA 
L ss DISPLAY AT{21,16):USINE *44 
HBHEHITR 
360 DISPERY AT2Z Yann 


380 REX MODIFICATION FAR RUBRIQUE 

390 REM EHESS 

40 DISPLAY 9T423,2): "RUBRIQUE A CHANGER : 
419 ACCEPT ATI25,23)VSLIDATE{DIGITIREEP:À 
426 IF A1 OR #34 THEN END 

430 OH À GOSUR 490,499 500 510 

446 BOTD 250 

AS REN HISEREENSESNEEENSEEE 

460 REM RENTREE DES DONNEES 

470 REN HHÉYSHHUNEHEEESENEEE 


486 ACCEPT AT{4,{7IVALIDATE INUMERIC!BEEP: MON 

T :: RETURN 

490 ACCEPT AT(E, 17) VALIDATE (NUMERICIREEP: TR 
1: RETURN 

906 ACCEPT AT{9, 17) VALIDATE (NUMERIC)REEP: TAS 
1: RETURN 

S10 ACCEPT AT(16,17)VALIDATE(DIGITIREEP: MEN 
1: RETURN 


Programme ”CEP” 


6û REN COPYRIGHT 99 HAGAIIME 
70 REN ET DIDIER BICKING 


190 RER EESFENENNEEEENNEES 

119 REM INITIBLISATIONS 

20 REM EHSESEESEEHNEEHEEEES 

13û CALL CLEAR :: CALL SCREEN(14) 

140 TD=û :: FC=0 1: R=ù 

150 REM EHEHHENEEHEHENEEENEES 

féû REX RUBRIQUES DEBIT 

179 REM HEHEHHEHHENEHENSEE 

189 DISPLAY ATEN SI: "RUBRIQUES DEBIT :" 
196 DISPLAY AT(2,1j:" 


Li 


266 FOR [=1 T0 9 

239 DISPLAY ATIT+2,2): "RUBRIQUE": I 

220 RCCEPT AT(I+2,18)VALIDATE (NUMERICIBEEP:R 
pif) 

236 TR=TD+RD I) 

249 NEXT I 

200 DISPEAY API Een 


280 DISPLAY ATIAS 2): "TOTAL" 3 
SIBHIUSINE AANHIE SR": TT 

270 DISPLAY ATII6,2): UNE TOUCHE POUR LA SUI 
Ts 

280 CALL KEV(Q,K,Sh:: IF SG THEN 280 

299 CALL CLEER 

300 REN HES#FFENEESSEENNNEE 

310 REX RUBRIQUES CREDIT 

320 REM EYSSSENNEEISENEENES 

330 DISPLAY ATII,3): "RUBRIQUES CREDIT :* 

SH: DISPLAY ATAZ Te" 


DISPLAY AT{ 


350 FOR I=1 10 9 

386 DISPLAY ATII+2,2): RUBRIQUES T 2: 
ATII+2,18)VALIDATE (NUMERIC) BEEP: RC 
H 

370 TC=TCHRC(N) 

380 NEÏT I 

S90 DISPERY API PET esse ee 


ACCEPT 


400 DISPLAY ATK13,2): "TOTAL" :: DISPLAY AT 
J,!6:USING HE HR: TC 
410 DISPLAY ATII6,2): UNE TOUCHE POUR LA SUT 


TE* 

420 CALL KEY{O,K,Sh:: IF S=0 THEN 420 

439 C&il CLEBR :: CALL SCREEN(A) 

A4Q REN HHHESYHSEEENEESENNS 

450 REM PRESENTATION DU COMPTE 

GED REN YHHSNEIYEEENSSEEES 

470 DISPLAY AT{,5):*DEBIT à CREDIT" 
A9 DISPLAY BTID {hr 


490 FOR I=1 T0 9 

S0ù DISPLAY ATUI42,2):1 12 DISPLAY AT(I+2,8) 
USING "#44." :HD(L):: DISPLAY À 

TU, 17hra 

510 DISPLAY AT(I42,20):USING *#HHHHI.H":RCI 
I 

520 MENT | 

330 DISPLAY ATEA2 13" 


540 REM HEHHEEENSENEE 
dû REM PRESENTATION DU SOLDE 
Séû REM HHHESEHEERENEENEEES 
970 R=TC-T) 
80 IF RQ THEN DISPLAY ATEIS,B):USING ‘4844 
H##":R 2 DISPLAY AT(13,20}:° 
“ss TRSTIMR :: 6070 600 
579 DISPLAY ATIIS,6:* 5 ss DISPLAY 
TES, 20): USING “HF. F4": ARS IR): : 
TE=TC+AB5 18) 
O0 DISRERY ATUA, fasses 


&ig DISPLAY ATI 
DISPLAY AT(IS, 
sic 


na e UV ATi 4 
620 DISPLAY AT(E, 1}: 


15,6): USINE “HAHSHE HR": TD 1: 
20) :USINS “HIHI. #4" 


BIO REN HER 
640 REH PROCEBURE DE MODIFICATION 

65Ù REN HUYSEHHEEEEEEENEUE 

B6û DISPLAY BT{18,2}: "VOULEZ-VOUS MODIFIERID 
1537 "1 ACCEPT ATIIS 28) VSLIDATE(* 
CR°)BEEP: AS 

676 DISPLAY ÀT{20,2): QUELLE RUBRIQUE 7 * :: 
ACCEPT 87{20,28)VBLIDGTE (DIGITIBEEF 

11 

88 IF A$="C* THEN 740 

890 IF RO THEN LET TD=TD-RD(I)-R :: 6070 71 

û 

JQÿ TD=TD-RDI Tr: TC=TC+HR 

715 ACCEPT OT(I42, 8) VALEDATE (NUMERICIBEEP: RD 

{T3 

720 T=TD#RD(T) 

736 GOTD 490 

740 IF RG THEN LET TC=TC-RCUID4R 2: GOTO 76 

ÿ 

750 TC=TC-RC(I):: TD=TD-R 

780 SCCEPT ATIT+2,20)VALIDATE (NUMERICIBEEP:R 

[in 

774 FC=TC+#RC(I) 

780 6CTO 490 
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Ce jeu est lui aussi la transcription 
pour ordinateur d’un jeu bien 
connu : nous avons tous eu, un jour 
ou l’autre, en main l’un de ces casse- 
têtes composé d’un cadre dans le- 
quel évoulent 27 caractères et une 
case vide. Il s’agit de remettre les ca- 
ractères dans l’ordre, sans bien en- 
tendu démonter le jeu pour le re- 
monter ensuite (jen connais qui le 
faisaient !) 


Dans cette version pour TI-99, les 
caractères: sont les 26 lettres de l’al- 
phabet et un point. L'ordinateur les 
dispose au hasard dans un cadre de 
7x4, laissant la case vide en bas et à 
droite. Pour déplacer un caractère, le 
joueur n’a qu’à appuyer sur la tou- 
che correspondante du clavier. 


Le programme débute par la consti- 
tution des formes et des couleurs. 
Ainsi, l’écran sera magenta (ligne 
160) alors que les caractères seront 
noirs sur fond jaune (lignes 180 à 
210). Le cadre du jeu sera composé 
d'un rectangle de deux traits (lignes 
230 à 340) de couleur jaune clair 
(ligne 170). 


La phase d’initialisation consiste à 
disposer les caractères de façon aléa- 
toire dans le cadre. Le programme 
commence par les ranger en ordre 
alphabétique dans un tableau B en 
les identifiant par leurs codes ASCII 
(lignes 380 à 420). Ensuite,il choisit 
aléatoirement l’un de ces codes 
(lignes 440 à 460) et dispose le ca- 
ractère correspondant dans la pre- 
mière case (ligne 490). Enfin, il éli- 
mine ce code du tableau B (lignes 
500 et 510) et recommence la même 
procédure pour la case suivante. 


Un procédé différent aurait pu être 
utilisé pour cette phase d’initialisa- 
tion. Il consisterait à tirer les lettres 
dans l’ordre alphabétique et à les dis- 
poser dans des cases choisies de ma- 
nière aléatoire. Mais cela nous aurait 
contraint à vérifier à chaque fois que 
la case choisie n’est pas déjà occu- 
pée et cette vérification aurait été 
d'autant plus longue que l’on appro- 
cherait de la fin de l’alphabet. 


Les lignes 570 à 670 vérifient que les 
lettres et le point se trouvent dans 
l’ordre (le point devant être disposé 
derrière le Z). Si ce n’est pas le cas, 
le programme renvoie à la procédure 
d'attente des ordres à exécuter. 
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Le jeu de l’Alphabet 


Denise Amrouche 


L’exécution des ordres se fait dans 
les lignes 680 à 980. Cette série 
d'instructions commence par deux 
CALL KEY (lignes 710 et 730). C'est 
là une sage précaution car, sans les 
lignes 730 et 740, si on laisse le 
doigt trop longtemps sur une touche, 
on risque de voir le caractère désigné 
se déplacer vers la case vide, puis re- 
venir aussitôt à la case qu'il occupait 
précédemment. 

La ligne 710 détermine la valeur de 
la variable CHOIX, désignant le ca- 
ractère à déplacer. La ligne 730, elle, 
donnera à la variable S la valeur —1 
tant que la touche restera enfoncée. 
Si cette valeur reste à —1, la ligne 
740 renvoie le programme à la ligne 
730, et ainsi de suite jusqu’à ce que 
la touche ait été relâchée. Il n’y aura 
ainsi de valse hésitation de la part 
d'un caractère que si, volontaire- 
ment, le joueur a appuyé deux fois 
sur la même touche. 


60 REM COPYRIGHT 99 MAGAZINE 
70 REM ET DENISE SMROUCHE 


190 RER JEU DE L'ALPHABET 
110 REM BASIC SIMPLE 

120 RER 

130 REX COULEURS ET FORMES 


150 DIM A(90! 
180 CALL SCREEN(I4) 

170 CALL COLOR(L3, 12, 14) 
180 CALL COLOR (2,2, 11) 
190 FOR 1=5 10 8 

200 CALL COLOREZ,2, 11) 
210 MAT I 


Le reste de la procédure d’exécution 
des ordres consiste, bien entendu, à 
vérifier que le caractère désigné peut 
être déplacé (lignes 750 à 940). Si ce 
n’est pas le cas, le programme ren- 
voie à la ligne 710 (qui demande un 
nouvel ordre). Sinon, l’ordre est exé- 
cuté par les lignes 950 à 970. 

Après chaque ordre, le programme 
retourne à la ligne 600 pour exami- 
ner si l’ordre voulu a été atteint, au- 
quel cas le joueur reçoit les félicita- 
tions de l’ordinateur. 


Les règles de ce jeu étant particuliè- 
rement simples, il ne semble néces- 
saire d'y apporter aucune modifica- 
tion. Seul le graphisme peut être 
modifié selon votre goût. Surtout ne 
vous en privez pas si les dessins qui 
vous sont présentés ne correspon- 
dent pas exactement à la façon dont 
vous auriez souhaité que ce jeu soit 
illustré. Et amusez-vous bien ! 


220 CALL CLEAR 
230 CALL CHAR{128, "00000000000000FF"} 
240 CALL CHARL129,°FF*) 

250 CALL CHAR(130,"O101010101010101") 
240 CALL CHAR(131, "B0BOBOBOBOBORORO"} 
270 CALL HCHAR(E,7, 128,21) 

280 CALL HCHARIS, 8, 128,23) 

290 CALL HCHAR(19,7,129,21) 

300 CALL HCHAR(20, 6,129, 23) 

310 CALL VOHARE7, 6, 130, 12) 

320 CALL VCHAR(É,5, 130, 14) 

330 CALL VCHAR(7, 28,131, 12) 

340 CALL VCHAR(É, 29, 131, 14) 


360 REM INITIALISATIONS 
370 REN 
389 DIM B{27) 





Suite de la page 33 


390 FOR 1=0 T0 

400 B{1I=65+I 

410 MENT | 

420 B(26)=46 

#30 FOR K=Q T0 25 
446 RANDONIZE 

ä5û J=IAT((27-LIERND) 
480 AIBIJIIEI 

479 LEIAT(X/7) 

480 C=1-78l 

490 CALL HOHAR(B+3#L,8+380,819)} 
c00 FOR K=J TD 26-Y 
310 BIK)=RIKHI) 

529 MEXT K 

930 MENT À 

46 AIB(Gi 226 


590 CALL HCHAR(17,23,B(0)) 


Depuis cinq ans, le club TISOFT 
existe en Belgique. La fondation du 
club avait pour raison le manque 
d'informations et de logiciels pour les 
calculatrices programmables Texas- 
Instruments. Le principe de fonction- 
nement du club repose sur l'échange 
de programmes entre les membres. 
Cela implique que nos membres en- 
voient leurs programmes au club et, 
si ces programmes sont acceptés, ils 
reçoivent deux programmes au choix 
en échange. 


Nous croyons que ce principe a été 
couronné d’un vif succès car le club 
possède en ce moment une biblio- 
thèque de plus de 1000 programmes 
en tous genres pour les calculatrices 
programmables. 


Dès que l'ordinateur individuel TI- 
99/4A a fait son apparition sur le 
marché européen, les mêmes problè- 
mes se sont posés. Le club TISOFT 
a donc décidé de créer une subdivi- 
sion TISOFT-HOME, en se basant 
sur les mêmes principes. 


La décision a été prise il y a quel- 
ques mois; le catalogue comporte 
déjà quelques deux cents program- 
mes en tous genres. Ce nombre ne 


tardera pas à augmenter, vu que le 
club possède en ce moment plus de 


360 REN 
570 REN VERIFICATION DE LA VICTOIRE 


590 FOR 1=45 T0 90 
600 IF AUIDC)I-45 THEN 870 
BIQ MENT ! 

820 IF A148)C)2b THEN 870 
830 PRINT “BRAVO ! " 

849 PRINT 

650 EDTO 450 

649 RE 

&70 REM ORDRES 

40 REM 

890 CALL KEV{S, CHOIX, 5) 
700 IF 8=0 THEN 490 

740 CALL KEYLO ARRET, S) 
720 IF S=-1 THEN 710 

730 X=AICHOIN) 

740 LeINT(K/7I 

750 C=I-7HL 

760 LLL-1 


Le Club 
TISOFT - HOME 
se présente 


500 membres qui nous envoient 
constamment des programmes. 
Comme nous ne voulons pas priver 
les possesseurs français d’un TI- 
99/4A de nos services, nous avons 
décidé de publier cette annonce dans 
99 magazine. 


Que peuvent 
nos membres ? 


Nos membres : 

— peuvent soumettre leurs program- 
mes en échange ; 
peuvent obtenir des listings de 
programmes ; 
peuvent obtenir de l'information 
au sujet de nouveaux program- 
mes ; 
reçoivent le catalogue au moment 
de leur affiliation et les complé- 
ments au moment de la parution ; 
peuvent utiliser nos services pour 
tout problème de programmation ; 
peuvent commander des program- 
mes du catalogue en dehors de 
l'échange (avec prise en charge 
des frais) ; 
peuvent commander des program- 
mes sur mesure (demander les 
conditions). 


attendre 


En plus, nous publions quatre fois 
par an une Newsletter” (en anglais 


710 CC=C 

780 CALL ECHARIB438LL, 843800, 2) 
790 IF 1=32 THEN 930 

800 LL=L 

810 CC=C-1 

820 CALL GCHAR(B43ELL, 843400, 1) 
830 1F 1=32 THEN 930 

840 LL=L 

950 CC=C#] 

g60 CALL GCHAR(B438LL, 843400, 1) 
870 1F 1=32 THEN 930 

880 LL2L4] 

890 CC=C 

goû CALL GCHARIB#3ELL, B434CC, 1) 
910 IF 2232 THEN 930 

920 GOTO 490 

920 A(CHOIN)=78LL4CC 

940 CALL HOHBRIB3EL,B#34C, 32) 
950 CALL HOHARIB+34LL, B434CC, CHOTL) 
980 BOTO 590 d 


seulement) avec des programmes, 
des astuces et trucs et des informa- 
tions générales (nouveaux produits, 
nouvelles concernant le club, etc...) 


Acceptation des 
programmes : 


Pour que nous puissions assurer nos 
membres de la qualité des program- 
mes se trouvant dans notre catalo- 
gue, ceux-ci doivent répondre à cer- 
tains critères. Il est évident que tout 
programme doit être accompagné 
d'une documentation complète et 
claire, et fonctionner impeccable- 
ment. Nous nous fions à nos mem- 
bres en ce qui concerne l’utilisation 
de techniques de programmation et 
l'application de formules. 


Les textes affichés à l’écran doivent 
être en français, anglais, néerlandais 
ou allemand. Le taux d'échange 
pour la traduction de programmes 
est de 1 pour 1. 


Autres conditions : 


— le programme doit être substantiel 
(non trivial) ; 
le programme doit présenter cer- 
tains avantages (diminution du 
temps de travail, du coût, etc...) ; 
le programme ne doit pas être une 
copie de programme existant 
(mais peut en être une améliora- 
tion substantielle) ; 
le programme doit être contrôlé et 
testé par le membre qui le soumet. 


Nous acceptons des programmes de 
tous genres (jeux, programmes édu- 
catifs, programmes scientifiques, 
etc) 


Suite page 38 
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Le TI-99 est l’un des tout premiers 
micro-ordinateurs à disposer d’une 
version de LOGO. Celle-ci est dispo- 
nible sous forme d’un module de 
ROM enfichable, et nécessite l’exten- 
sion mémoire de 32K. Mais peut-être 
vous posez-vous des questions : 

— LOGO c’est quoi ? 

— LOGO pourquoi faire ? 

— LOGO pourquoi ? 


Qu'est-ce que LOGO ? 


Cette question était le titre d’une 
communication de Gérard Bossuet 
aux journées micro-ordinateurs orga- 
nisées par l’IN.R.ILA. en 1979. Trois 
aspects essentiels de LOGO étaient 
alors soulignés : 


- LOGO est une philosophie de 
l'éducation. L'approche LOGO est 
née au milieu des années 60 à Cam- 
bridge, près de Boston (Massachu- 
setts), et le terme même de LOGO a 
été choisi par Wallace Feurzeig en ré- 
férence au grec logos”: raisonne- 
ment, discours. La première équipe 
LOGO), :qui s’est constituée chez 
Bolt, Beranek & Newman, s’intéres- 
sait à l'apport de l'informatique à 
l'enseignement, non pour confier à la 
machine le soin de transmettre à 
l'élève des savoirs pré-déterminés, 
mais pour mettre à la disposition de 
l'étudiant un outil puissant qui lui 
permette d’aller explorer librement 
un certain nombre de domaines de 
connaissance. 


- LOGO est un langage de program- 
mation, de la famille de LISP, inte- 
ractif, procédural et récursif. Il est 
suffisamment simple pour être acces- 
sible à de jeunes enfants (des classes 
programment en LOGO dès l’âge de 
cinq-six ans), et en même temps 
assez sophistiqué pour soutenir l’inté- 
rêt des programmeurs chevronnés. 


- LOGO est un ensemble de maté- 
riels pédagogiques contrôlés par ordi- 
nateur, permettant la mise en évi- 
dence des processus mentaux mis en 
jeu par un enfant pour résoudre les 
problèmes qu'il se pose et auxquels il 
propose une solution. 


Que peut-on faire avec 


LOGO ? 


Pour les plus jeunes, deux ’’micro- 
mondes” sont particulièrement inté- 
ressants : celui de la tortue et celui 
des lutins (sprites en anglais). 
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Introduction au LOGO 


La tortue 


La tortue est, à l’origine, un petit 
robot comportant une plate-forme 
circulaire montée sur roulettes, munie 
d’un stylo qui peut être soit en posi- 
tion relevée ( bouger la tortue ne 
laisse pas de trace), soit en position 
baissée (ce qui permet de tracer... 
sur le sol ou sur de grandes feuilles 
de papier). Le tout est protégé par 
une coupole hémisphérique, qui re- 
couvre éventuellement d’autres ”or- 
ganes”’: avertisseur sonore, phare, 
palpeurs.. Moins encombrante, la 
tortue d'écran a la forme d’un petit 
triangle. Pour la faire apparaître, il 
suffit d'écrire : 

APPELLE TORTUE (ENTER) 


Quand on a fini de s’en servir, on 
s'en débarasse en inscrivant (en un 
seul mot cette fois) : 


PLUS DE TORTUE (ENTER) 


Pourquoi un pétit triangle ? Pour 
montrer à la fois où elle est et où elle 
regarde : 


elle regarde par là 
À 


Ed e 


elle est ici 


Cela fait référence au schéma corpo- 
rel. Démarrer dans le bon sens est 
souvent indispensable dans la vie de 
tous les jours : voyez les problèmes 
de repérage avec une carte routière, 
et souvenez-vous de vos ennuis s’il 
vous est un jour arrivé de prendre 
une autoroute dans la mauvaise di- 
rection ! 


Avec des ordres très simples 
(AVANCE,  RECULE, DROITE, 
GAUCHE), nous allons pouvoir faire 
exécuter à notre tortue des parcours 
plus ou moins compliqués, et lui faire 
réaliser des dessins ou tracer des fi- 
gures géométriques. Après AVANCE 
ou RECULE, ïil faut préciser de 
combien de pas, et après DROITE 
ou GAUCHE, ïil faut indiquer de 
combien de degrés elle doit tourner. 


Exemple : 


Le point de départ est en bas du 
mur gauche ; la tortue regarde vers 
le haut” de la feuille. 


AVANCE 50 DROITE 45 
AVANCE 50 DROITE 90 
AVANCE 50 DROITE 135 


Catherine Berdonneau 


AVANCE 71 RECULE 71 
GAUCHE 90 AVANCE 50 
DROITE 90 AVANCE 71 


On remarquera que, lorsque la tortue 
redescend, sa droite et sa gauche 
sont ma gauche et ma droite, respec- 
tivement. Utiliser une tortue amène à 
beaucoup travailler la latérisation, no- 
tion qui n’est souvent pas maîtrisée à 
la fin de la scolarité primaire : qui de 
nous n’a pas eu recours au moins 
une fois au bonhomme d'Ampère ou 
à la règle des trois doigts pour s’assu- 
rer du sens des champs ou du cou- 
rant dans les problèmes de physi- 
que ? 


Comme l’ami Pierrot de la chanson, 
la tortue est munie d’une plume, que 
lon peut relever si l’on souhaite un 
déplacement qui ne laisse pas de 
trace. Il ne faudra pas oublier de re- 
mettre ensuite la plume en position 
pour écrire |! 


Le lutin 


Un lutin est un être très pudique, qui 
ne se montre que lorsqu'il est dé- 
cent. On dispose de 32 lutins, qui 
peuvent être appelés indépendam- 
ment ou à plusieurs à la fois. Il 
convient d’attribuer à un lutin une 
forme, choisie parmi 26 possibles 
(cinq formes sont prédéfinies: un 
avion, un camion, une fusée, une 
boule et un carré). Attention ! Le nu- 
méro de la forme n’a rien à voir avec 
le numéro du lutin, de la même 
façon qu’une voiture R16 peut avoir 
un numéro d’immatriculation qui ne 
sera pas ”’R16”, mais plus probable- 
ment quelque chose comme 3742 
BRD 75. Les 21 autres formes sont à 
créer par l’utilisateur. 


Exemple : 





Il faut également donner au lutin une 
couleur, que l’on choisit parmi les 16 
couleurs que gère le TI-99/4A. 


Ce n'est qu'après l’avoir ainsi ”ha- 
billé” qu’on peut appeler le lutin au 
CENTRE et le rendre visible. On 
peut alors le déplacer en utilisant les 
mêmes ordres (AVANCE, RECULE, 
DROITE, GAUCHE) que pour la tor- 
tue. Mais attention ! Un lutin, comme 
une fée ou un elfe, ne laisse pas de 
trace de son passage : il n’a pas de 
plume! Mais on peut aussi lui donner 
un cap et une vitesse. 


On pourra donc réaliser des dessins 
animés (avec des trucages, qui per- 
mettent de transformer un lutin à 
forme de fleur en un lutin à forme de 
champignon...), des jeux vidéo, des 
simulations de phénomènes physi- 
ques... 

Trois autres ’’micro-mondes” sont 


disponibles : les nombres, le texte et 
la musique. 


Les nombres 


Les nombres sont des entiers relatifs; 
on peut les additionner, les sous- 
traire, les multiplier ou les diviser (di- 
vision euclidienne donnant le résultat 
entier). On peut aussi les comparer 
(=,<,>). 


Une fonction aléatoire produit à la 
demande des nombres de un chiffre 
au hasard entre O et 9. Travailler 
avec des nombres amène donc l’en- 
fant à manipuler régulièrement les 
faits numériques et logiques dont 
beaucoup sont encore mal assimilés 
dans les dernières années de la sco- 
larité des collèges. Par exemple, si 
lon veut un nombre au hasard 
compris entre O et 999, il faudra 
penser à la décomposition décimale 
d’un nombre à trois chiffres : 
Cx100+Dx10+U 

et prendre pour C, D et U ce que 
fournit la fonction aléatoire. 


Le texte 


Le texte est traité en LOGO de deux 
manières : l’objet considéré peut être 
un mot (chaîne de caractères termi- 
née par un espace) ou une liste 
(suite d'objets qui peuvent être soit 
des mots soit des listes). On peut affi- 
cher ces objets, en extraire des mor- 
ceaux, recoller plusieurs morceaux 
pour constituer un objet plus long. 
Sensibilisation à la mise en page 
(présentation), apprentissage des 
règles de séparation des mots pour 
donner une bonne lisibilité, organisa- 
tion et analyse d’un texte, motivation 
à l'expression écrite, voilà des quali- 
tés d'ordre général sur lesquelles 
vont porter les efforts d'enfants qui 
explorent ce micro-monde. 


La musique 


La musique attire l'attention sur les 
rythmes, et sur leur influence sur 
notre perception des hauteurs des 
sons (notes) : il s’agit là d’une appro- 
che de l'essentiel du domaine musi- 
cal, qui n’a rien à voir avec le simple 


apprentissage du solfège. On peut 


superposer jusqu'à trois voies sono- 
res et, si l’on joue soi-même d’un 
instrument (guitare, flûte à bec...), on 
pourra composer des accompagne- 
ments et explorer ainsi le monde de 
l'harmonie. On peut travailler dans 
ce micro-monde sans connaître les 
notes : on exerce son oreille à écou- 
ter de manière critique ce que l’on 
vient de rédiger. 


Pourquoi choisir 
LOGO ? 


Il y a trois raisons majeures pour pré- 

férer LOGO à d’autres langages : 

e LOGO a été conçu pour être uti- 

lisé par des enfants, même très 
jeunes. C’est un langage de pro- 
grammation sous-tendu par une 
pédagogie libérale, largement in- 
fluencée par Piaget. 
LOGO est formateur, non seule- 
ment dans les disciplines qui cor- 
réspondent à ses micro-mondes, 
mais également d’une manière gé- 
nérale. 

e LOGO est une excellente initiation 
à la programmation structurée. 

e LOGO est utilisable par des en- 
fants, même très jeunes. 


Aux Etats-Unis, plusieurs écoles et de 
nombreuses familles utilisent LOGO 
sur le TI-99 avec des enfants dès 
l’âge de trois ans. Il ne s’agit pas, en 
général, d'enfants surdoués. Ces en- 
fants vont d’abord utiliser des pro- 
grammes écrits en LOGO, qui leur 
permettront de manipuler lutins ou 
tortue. D’autres programmes peuvent 
être conçus facilement (par exemple 
par un grand frère ou une grande 
sœur de 10-12 ans) pour associer à 
une lettre un objet dont le nom 
commence par cette lettre: A 
comme AVION, B comme BATEAU, 
C comme CAMION... Au lieu d’une 
simple lettre, on utilisera ensuite une 
série de programmes où le mot doit 
être tapé en entier: des fiches car- 
tonnées portant ces mêmes mots se- 
ront à la disposition de l’enfant qui 
pourra les recopier à sa guise et as- 
socier ainsi le graphisme écriture au 
graphisme objet. 


Dès qu’ils savent lire et écrire, les en- 
fants peuvent se lancer dans des acti- 
vités passionnantes avec les lutins 
pour raconter des histoires, les ani- 
mer et pourquoi pas, les accompa- 
gner d’un fond musical. 


Le langage LOGO en lui-même est 
composé de mots français: pas 
d'obscurité sur la signification des 


mots employés, pas de risque d'’es- 
tropier la prononciation ou la signifi- 
cation courante de mots d’une lan- 
gue étrangère. Le langage interprété 
permet l'exécution immédiate de 
chaque commande tapée au clavier. 
La notion d'erreur est absente de 
l'approche LOGO : le terme même 
d'erreur est exclu de son vocabulaire. 
Vous ne verrez jamais un message 
du style de ‘ERREUR No 20” ou 
"ERREUR DE SYNTAXE”, mais tou- 
jours une indication courtoise du 
type de problème rencontré par l’or- 
dinateur : 


e TU N'AS PAS OUVERT LES 
CROCHETS 

e TU ESSAIES DE DIVISER PAR 
ZERO 
PAS DE FICHIER DISPONIBLE 
VERIFIE LA DISQUETTE 
PAS ASSEZ DE DONNEES 
LA PHRASE EST TROP LON- 


GUE 
e ”’SINON’” EST MAL PLACE 


Si vous utilisez un mot, par exemple 
"BIDULE”, que la machine ne 
connaît pas, elle fait preuve de 
bonne volonté : 


APPRENDS-MOI BIDULE 


Vous pouvez donc redéfinir les primi- 
tifs (mots de base connus par l’ordi- 
nateur) qui ne vous plaisent pas : si 
la plume de la tortue ne vous 
convient pas, vous lui apprendrez 
LEVECRAYON et POSECRAYON, 
ou LEVESTYLO et POSESTYLO au 
lieu de LEVEPLUME et POSE- 
PLUME. 


De même, lorsque vous aurez conçu 
quelque chose, vous pourrez lui ap- 
prendre à le réaliser. C’est tout sim- 
plement écrire un programme, me 
direz-vous ! Oui, et non... Je m'expli- 
que : essayez donc d'expliquer à un 
enfant de sept ans ce qu'est un pro- 
gramme; vous risquez fort d'y passer 
la nuit car, une explication entraînant 
une autre question, sa curiosité épui- 
sera probablement vos réserves 
d'imagination et de transposition, 
sans pour autant avoir été satisfaite. 
Si, au contraire, l’enfant dessine un 
rectangle : 


AVANCE 20 DROITE 90 

AVANCE 35 DROITE 90 

AVANCE 20 DROITE 90 

AVANCE 35 

et que là il tape : 

RECTANGLE 

la réponse : 

APPRENDS MOI RECTANGLE 
n'engage pas sur le chemin d’un dis- 
cours mais débouche immédiatement 
sur l’action : 


POUR RECTANGLE 
AVANCE 20 DROITE 90 
AVANCE 35 DROITE 90 
AVANCE 20 DROITE 90 
AVANCE 35 

FIN 
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Désormais, le mot RECTANGLE est 
reconnu par la machine. Si l’on tape 
quatre fois ce mot, on obtient une 
rosace 


Ce mot peut à son tour être enseigné 
à la machine : 


POUR ROSACE 
REPETE 4 [RECTANGLE] 
FIN 


Enseigner un mot à la machine 
consiste donc simplement à lui indi- 
quer dans l’ordre les instructions 
qu’elle doit exécuter. Pas de numé- 
rotation de lignes, pas de virgule, 
deux points ou autres signes de 
ponctuation pour séparer les diverses 
instructions. LOGO est un langage 
procédural car il fonctionne à partir 
de la détermination de procédures 
telles que RECTANGLE, ROSACE, 


etc. 


Autre avantage d’un langage procé- 
dural: on peut travailler en même 
temps sur des problèmes très diffé- 
rents (c'est une aubaine lorsque plu- 
sieurs enfants se partagent le même 
matériel). Aucun besoin de prévoir 
des sauvegardes continuelles sur dis- 
quette ou cassette. Pas de risque de 


voir un NEW intempestif effacer tout: 


le travail de l'utilisateur précédent. 
Pas de danger que des numérota- 
tions rivales sèment la panique dans 
les programmes. Chacun utilise les 
noms dont il à besoin comme titres 
pour ses propres procédures. Et si 
d'aventure vous prenez un mot qui 
sert à un autre usage en ce moment, 
vous trouvez le texte intégral de sa 
procédure sous vos veux : il est alors 
simple de choisir un autre nom pour 
sa propre procédure (cela arrive fré- 
quemment par exemple avec 
CARRE qui, pour l’un, est une figure 
géométrique et, pour l’autre, une élé- 
vation à la puissance deux), ou né- 
gocier à l’amiable avec votre concur- 
rent un changement de son titre. 


Pas de contrainte autre que celles 
que l’on se donne volontairement. 
Pas de seuil, pas de plafond. On ap- 
prend en explorant, en tâtonnant, en 
observant, en manipulant, et non en 
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subissant un enseignement. C’est un 
savoir librement construit, toujours 
en évolution, et non un lot de 
connaissances transmises. 


Intérêt de LOGO 


LOGO est formateur : 


Les principales qualités développées 
sont ordre et méthode, rigueur, ima- 
gination et esprit d'initiative. La mise 
au point des procédures, le debug- 
ging, la conception de nouveaux pro- 
jets entraînent toujours plus loin. 


Par ailleurs, et considérant le seul do- 
maine de la tortue, c’est-à-dire la dis- 
cipline des mathématiques, cette pe- 
tite bête à l’aspect inoffensif ouvre 
des horizons insoupçonnés. En utili- 
sant l’idée même de la tortue, sans 
plus se laisser freiner par les contin- 
gences matérielles d'une tortue 
d'écran gérée par un micro-ordina- 
teur, on peut explorer des domaines 
complexes de géométrie ou de physi- 
que. Parmi les questions simples, on 
abordera les déplacements dans le 
plan: translations, rotations, symé- 
tries. Mais si l’on s’affranchit de la 
contrainte du plan, on utilisera ce vé- 
ritable outil intellectuel pour des ex- 
cursions vers la géométrie dans l’es- 
pace, la géométrie différentielle, les 
géométries non euclidiennes... La 
physique aussi bénéficie de l’apport 
de la tortue, non seulement la dyna- 
mique de Newton, mais même la re- 
lativité. Au Massachusetts Institute of 
Technology, qui compte parmi les 
plus prestigieuses universités améri- 
caines, des cours de niveau maîtrise, 
en mathématiques et en physique, 
font appel au concept de la tortue. 


Initiation à la programma- 
tion structurée 


Bien que le but ne soit jamais, avec 
de jeunes enfants, de leur enseigner 
explicitement l'informatique, bon 
nombre de concepts fondamentaux 
sont abordés au cours des diverses 
manipulations, pour la plupart avec 
des enfants ayant moins de 9-10 ans. 
Tout d’abord une démuvstification 
complète de l'ordinateur, qui n'est 
pas un superman, mais une machine 
absolument idiote, à laquelle il faut 
tout indiquer, même ce qui est tota- 
lement évident. 


Que peut-on découvrir à cet âge 
comme notions de base ? 


- Procédure (ou programme). Le fait 
qu'une procédure peut en appeler 
une autre : au lieu de se compliquer 
l'existence à numéroter les lignes et 


flécher le jeu de piste avec des 
GOTO, qui rendent rapidement 
n'importe quel programme peu lisi- 
ble, chaque tâche est assignée à une 
procédure, et les enchaînements 
s’ensuivent: logiquement. Toute pro- 
cédure peut en effet être utilisée au 
même titre que n'importe quelle ins- 
truction, soit en mode direct, soit 
dans la définition d’une autre procé- 
dure. 

- Récursion : une procédure qui s’ap- 
pelle elle-même. Comme Pascal, 
LOGO est un langage récursif. Voici 
un exemple pour le tracé d'une 
courbe en flocons de neige avec la 
tortue : 


POUR FLOCON :TAILLE :PRO- 
FONDEUR 

REPETE S3[COTE :TAILLE :PRO- 
FONDEUR DROITE 120] 

FIN 


POUR COTE :LONGUEUR :NI- 
VEAU 

SI :NIVEAU = O0 ALORS 
AVANCE :LONGUEUR STOP 
COTE :LONGUEUR/3 :NIVEAU - 1 
GAUCHE 60 

COTE :LONGUEUR/3 :NIVEAU - 1 
DROITE 120 

COTE :LONGUEUR/3 :NIVEAU - 1 
GAUCHE 60 

COTE :LONGUEUR-:3 :NIVEAU - 1 
FIN 


Au niveau 0 de profondeur (qui me- 
sure le nombre d'appels récursifs) le 
flocon est un simple triangle équilaté- 
ral. Au niveau 1, on a un flocon de 
neige relativement simple. 

Au niveau 3, cela commence déjà à 
être nettement plus compliqué. Pour- 
tant le programme, lui, n’a pas 
changé. Cette procédure peut être 
mise au point'par un adolescent. 


- Paramètre : un paramètre est un 
mot précédé de ’:” (dans notre 
exemple TAILLE, NIVEAU, LON- 
GUEUR et PROFONDEUR). C'est 
une valeur que l’on déterminera de 
façon définitive au moment même de 
l'exécution. Cela permet par exemple 
d’avoir des carrés plus ou moins 
grands pour dessiner une tête de 
robot. 

















Les noms des paramètres, comme 
ceux des procédures, peuvent être 
aussi explicites qu’on le souhaite. Les 
paramètres locaux sont liés à la pro- 
cédure dans laquelle ils sont utilisés. 
C’est ce qui explique que l’on peut 
changer le nom entre une procédure 
et une sous-procédure (lors de l’exé- 
cution, la valeur assignée à : TAILLE 
passe à :LONGUEUR, et celle 
de :PROFONDEUR à :NIVEAU). 


- Conditions : SI... ALORS... SINON : 


Après SI, on doit trouver une expres- 
sion susceptible d’avoir la valeur 
VRAI ou FAUX: après ALORS ou 
SINON, n'importe quelle instruction 
ou procédure (autres formulations : 
TESTE, SIVRAI, SIFAUX). 


- Utilisation d'un éditeur : LOGO dis- 
pose d'un éditeur pleine page en 
temps réel, qui facilite grandement la 
mise au point des procédures et le 
debugging. Tout ce qui, dans Pascal, 
semble compliqué à cause de la na- 
ture compilée du langage, est immé- 
diatement manipulable avec LOGO. 
L'utilisateur peut alors accorder toute 
son attention à la compréhension du 
fonctionnement des instructions et à 
la création de ses propres images 
mentales pour chaque situation. 


Convaincu ? Non ? Mieux qu’un long 


Suite de la page 34 


Comment devenir 
membre ? 
Le prix d'affiliation est : 


- pour la Belgique : 800 FB par an 
- pour l'étranger : 1000 FB par an. 


Le paiement doit se faire par vire- 


discours, il vous faut essayer LOGO. 
Mais attention : LOGO est dange- 
reux ! Si vous avez des enfants, pré- 


Suite de la page 11 


voyez vite d'acheter un deuxième or- 
dinateur familial pour avoir encore 
accès à ce matériel chez vous... 


Instructions de BASIC Etendu 


ACCEPT AT(x,y):A : le pointeur se 
trouve au point désigné dans l’écran 
par les coordonnées x et y. La saisie 
de la valeur de la variable A est faite 
à partir de ce point. 


VALIDATE(genre, chaîne): cette 
instruction s'utilise en association 


avec la précédente. Elle détermine le 
type de réponse possible. Le ”’genre” 


est soit un chiffre de O à 9, soit un 
caractère numérique (les chiffres et 
les signes opératoires), soit encore un 
caractère alphabétique ou alphanu- 
mérique. 

Si, au lieu d’un genre, on indique 
une chaîne de caractères entre guille- 
mets, seuls des caractères apparte- 
nant à cette chaîne pourront être 
entrés. 


DISPLAY AT(x,y):A : affiche la va- 
leur de À à partir du point de coor- 
données x,y. 


———————]——]—]— — 


ment international libellé en Francs 
Belges, ou par virement à notre 
compte-chèque postal : 
000-1149689-45 TISOFT-HOME 
Tennisstraat 16, B-2610 WILRUK 
(BELGIQUE) 


Adresse pour échange de program- 
mes et correspondance : 
TISOFT-HOME c/o Thomas Cop- 









CALL SOUND/(durée, fréquencel ,vo- 
lume1,fréquence2,volume2 fréquence 
3,volume3,bruit4,volumed) : fait en- 
tendre simultanément jusqu’à trois 
notes et un bruit. 


_ CALL SAY(mot) : fait dire par le 


Speech-synthètiser le mot désigné, à 
condition toutefois que celui-ci soit 
compris dans le lexique de ce dispo- 
sitif. 

CALL PATTERN : donne à un 
sprite une forme déterminée par ail- 
leurs. 


CALL JOYST(numéro du joyst, 
A,B) : donne à A et B les valeurs 0,4 
ou —4 en fonction de la position du 
levier du joystick désigné. 


CALL COINC : examine s'il y a 
coïncidence dans la position de deux 
sprites désignés. Dans ce cas, il 
donne la valeur —1 à une variable, O 
dans le cas contraire. 









pens, boîte postale 63, B-2080 KA- 
PELLEN (BELGIQUE). 


Veuillez noter que nous ne pouvons 
pas accepter les envois recomman- 
dés. 

Si vous êtes intéressés, n'hésitez pas 
à devenir membres ou à nous de- 
mander de plus amples informa- 
tions ! 


Le club 





d'utilisateurs TI-Education 


Vous ne connaissez rien à la micro- 
informatique, vous sentez le formida- 
ble attrait qu’elle exerce sur vos 
élèves, vous voulez maintenir le 
contact avec eux tout en vous enri- 
chissant, un vocabulaire étrange (et 
étranger) vous assaille et vous sou- 
haitez pouvoir le démystifier, vous 
voulez dominer le BASIC, le Pascal, 
l’'assembleur et le Logo, ou pouvoir 
simplement bénéficier des travaux de 
vos collègues. 


Deux cents enseignants de toutes dis- 
ciplines, lettres, technologie, langues, 





maths, physique, travaux manuels, 
ayant les mêmes préoccupations, ne 
connaissant rien à l'informatique en 
octobre 1982, ont maintenant pro- 
duit, après une année de fréquenta- 
tion plus ou moins régulière du club 
de Vélizy, une centaine de program- 
mes touchant à des domaines variés 
et, surtout, ont maintenant complète- 
ment démystifié la machine... 


Enseignants de Paris, Strasbourg, 
Lyon, Rennes, Toulouse et Nice, un 
nouveau club Tl-Education entière- 
ment équipé sera ouvert à tous ceux 


qui en feront la demande (et gratui- 
tement) dès la rentrée prochaine. 
Prenez vos précautions et écrivez- 
nous dès à présent. 


Il est évident que les connaisseurs, 
les mordus et tous ceux qui souhai- 
tent disposer d’un matériel pour réa- 
liser un objectif, en discuter, établir 
des contacts, entretenir des échan- 
ges, etc, seront les bienvenus. 


Club TI-Education 
Texas-Instruments France 
8-10 avenue Morane-Saulnier 
78140 VELIZY 
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Vous connaissez probablement ce 
petit casse-tête se présentant généra- 
lement sous la forme d’un disque de 
bois dans lequel sont plantées trois 
tiges cylindriques disposées en trian- 
gle. Sur l’une d’entre elles sont enfi- 
chés cinq ou six anneaux de taille 
décroissante, le plus petit étant sur le 
dessus. 


Le jeu consiste, en prenant à chaque 
coup un seul anneau et en le mettant 
dans une colonne vide ou sur un an- 
neau plus grand, à reconstituer la py- 
ramide complète sur une autre tige. 


Dans la version pour TI-99 présentée 
ici, les anneaux sont représentés par 
des barres de couleurs et de dimen- 
sions différentes. Les trois tiges, au 
lieu d’être représentées en triangle, 
sont disposées en ligne, ce qui sim- 
plifie sensiblement la représentation 
graphique du jeu. 

Le joueur choisit de jouer avec 4, 5 
ou 6 anneaux au départ, ce qui per- 
met de varier le niveau de difficulté. 
Initialement, tous les anneaux se 
trouvent sur la pile 1, le jeu consis- 
tant à les disposer dans le même 
ordre sur l’une des deux autres piles. 
Pour jouer chaque coup, le joueur 
indique en premier le numéro de la 
pile de départ du coup à jouer, puis 
celui de la pile d'arrivée. Tous les 
coups sont permis, sauf de poser un 
anneau sur un anneau plus petit. À 
la fin du jeu le score est indiqué, 
c’est-à-dire le nombre de coups qu'il 
a fallu au joueur pour transférer la 
pyramide d’une pile dans une autre. 


Dans le programme, les anneaux 
sont numérotés de 1 à 6, l’anneau 
de numéro Î| avant un diamètre de 
(2*x1—1). Pour chacun des anneaux, 
la ligne 420 définit le code ASCII du 
caractère CAR(I) qui le représentera, 
le groupe de couleurs GRP(I) corres- 
pondant et la couleur COUL(I) choi- 
sie. 

Dans le but de mémoriser, à chaque 
étape, le contenu d’une pile, on jux- 
tapose les numéros des anneaux 
constituant cette pile de haut en bas. 
Par exemple, si la pile 1 contient de 
haut en bas les anneaux 2, 3 et 5, 
on aura PILE(1)=2.35. Si l'anneau 2 
est enlevé, ïil suffira de faire 
(PILE(1)—2)x10 pour obtenir la nou- 
velle valeur de PILE(1), soit 3.5 
(ligne 860). Si l'anneau 1 est amené 
sur cette pile, la nouvelle valeur de 
PILE(1) sera PILE(1)x0.1+1, soit 
1.35 (ligne 830). 


Un autre problème se présente pour 
séparer clairement les deux introduc- 
tions de données par le clavier : pile 
de départ et pile d’arrivée. Sans cer- 
taines précautions, si le doigt reste 
appuyé sur la touche assez long- 
temps, le TI-99 enregistrera la même 
donnée pour la pile de départ et la 
pile d'arrivée. La ligne 590 enregistre 
la pile de départ, la ligne 630 est 
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Les tours de Hanoï 


Denise Amrouche 


exécutée tant que la pression sur la 
touche n’a pas été relâchée. Il en va 
de même pour les lignes 700 à 730. 


Le compteur C enregistre le nombre 
de coubs licites effectués, dont la va- 
leur finale sera affichée en fin de par- 
tie. Seuls les coups licites sont comp- 
tés : les coups illicites, n'étant pas 
exécutés, ne sont pas enregistrés par 
ce compteur. 


Ce jeu est, au départ, un véritable 
casse-tête et il n’est pas rare de voir 
un joueur inexpérimenté, devant une 
pile de 6 anneaux, dépasser la cen- 


40 REM COFYRIGHT 99 MAGAZINE 
70 REM ET DENISE AMROUCHE 

89 

90 REM 

100 REM #KKXEHHRER ERREUR 
110 REM 
120 REM 
130 REM 
140 REM #HHH EEE EEE 

150 REM BASIC SIMPLE 

160 CALL SCREEN(16) 

170 CALL CLEAR 

180 PRINT "NOMBRE D'ANNEAUX?(4,5,6)" 

190 CALL KEY(O,K,5) 

200 IF S=0 THEN 190 

210 CALL SOUND(500,262,1,330,1,392,1) 
220 IF K<S2 THEN 190 

230 IF KH:54 THEN 190 

240 N=K-48 

250 IF (N-4)#(N-6) :0 THEN 180 

260 REM ####INITIALISATIONS# 

270 IF N>4 THEN 500 

289 CODE=1.234 

290 GOTO 340 

300 IF N>5 THEN 330 

310 CODE=1.2345 

320 GOTO 340 

330 CODE=1.23456 

340 PILE(1)=CODE 

350 PILE (2)=0 

360 PILE(3)=0 

370 HAUT(1)=10 

380 HAUT (2) =10+N 

390 HAUT (3)=10+N 

400 C=0 

410 DATA 136,14,10,128,13,5,120,12,12,11 
2,11,4,104,10,14,96,9,13 

420 FOR 1=1i TO 6 

430 READ CAR(I),GRF(I),COUL (1) 

440 CALL COLOR(GRF(I),COUL (I) ,COUL(I)) 
450 NEXT I 

460 RESTORE 

470 CALL CLEAR 

480 FOR I=1 TON 

490 CALL HCHAR(9+1,8-I1,CAR(1),2#I-1) 

500 NEXT I 

510 CALL HCHAR(17,7,49) 

520 CALL HCHAR(17,17,50) 

530 CALL HCHAR(17,27,51) 


TOUR DE HANOI 


taine de coups sans pour autant par- 
venir au but. Mais il y a un truc, sim- 
ple et purement mathématique, qui 
permet de résoudre ce jeu avec ai- 
sance. 


Le programme que je vous ai pré- 
senté ici peut être modifié. Vous 
pouvez changer à votre goût la re- 
présentation graphique; vous pouvez 
aussi adapter le jeu pour qu’il fonc- 
tionne avec 7 anneaux ou plus (le 
principe de résolution du jeu reste 
strictement le même quel que soit le 
nombre d’anneaux utilisés). 


Alors, amusez-vous bien! 


540 REM *#xkkkxxx JEU xxx 

350 CALL HCHAR(20,9,68) 

560 CALL HCHAR(29, 10,69) 

970 CALL HCHAR{20,11,63) 

580 CALL KEY(S,DE, STATUS) 

590 IF STATUS=0 THEN 580 

600 REM VERIFIE QUE LA TOUCHE EST RELACH 
EE 

610 CALL KEY(3S, ARRET, STATUS) 

620 IF STATUS=-1 THEN 619 

630 CALL HCHAR(20,13,DE) 

640 DE=DE-48 

650 CALL SOUND{100,110,3) 

660 IF (DE<1)+(DE:3)+(PILE(DE)=0)THEN 89 
[a] 

670 CALL HCHAR(29,16,65) 

680 CALL HCHAR(29,17,63) 

690 CALL KEY(3,A,STATUS) 

700 IF STATUS=0 THEN 690 

710 CALL KEY(3,ARRET, STATUS) 

720 IF STATUS=-1 THEN 710 

730 CALL HCHAR(20,19,A) 

740 A=<A-48 

750 CALL SOUND{100,262,2) 

769 IF (A1)+(A>:3) THEN 890 

770 IF PILE(A)=0 THEN 790 

780 IF (PILE (DE) >PILE(A))THEN 890 

790 C=C+1 

800 U=INT (FILE(DE)) 

810 HAUT (A) =HAUT {A) -1 

829 PFILE(A)=.1#FILE (A) +U 

830 CALL HCHAR (HAUT (DE), 10#DE-2-U, 32, 240 
1) 

849 HAUT (DE) =HAUT (DE) +1 

850 PILE (DE)=10%# (PILE (DE) -U) 

860 CALL HCHAR (HAUT (A) ,10#A-2-U, CAR (LU) ,2 
#U-1) 

870 IF FILE(2)=CODE THEN 910 

880 IF FILE(3)=CODE THEN 919 

890 CALL HCHAR(20,7,32,20) 
900 GOTO 550 

910 PRINT "BRAVO!! 

OUS AVEZ GAGNE EN 

9290 PRINT 

930 PRINT 

940 PRINT 

950 PRINT 

960 PRINT "UNE AUTRE FARTIE?(O/N)" 
970 CALL KEY(O,D,E) 

980 IF E=0 THEN 970 

990 IF D=79 THEN 120 


";C;"COUFS" 





Récupérez 


les programmes Apple 


Hervé Thiriez 


Cet article s'adresse à tous ceux qui 
désirent adapter des programmes 
écrits en Applesoft au TI Basic. En 
effet, aucun ordinateur au monde ne 
possède à ce jour autant de pro- 
grammes que l’Apple : autant ne pas 
s'en priver et savoir adapter les pro- 
grammes écrits pour Apple afin qu'ils 
marchent sur notre 99/4A préféré. 
Nous allons voir, par conséquent, 
comment effectuer la conversion du 
Basic Aplesoft vers le TI Basic. 


Instrutions similaires 


Les instructions qui suivent appar- 
tiennent aux deux Basics et y jouent 
un rôle soit identique, soit fort voisin. 
Nous commenterons par la suite les 
principales différences. Nous ne pou- 
vons prétendre à l'exhaustivité : il 
faudrait y consacrer une centaine de 
pages … 


ABS, ASC, ATN, CHR$, COS, 
DATA, DEF, DIM, END, EXP, FOR 
… TO, GOSUB, GOTO, On .… 
GOTO, ON .. GOSUB, READ, REM, 
RETURN, SGN, SIN, SQR, STEP, 
STOP, STR$ et TAN. 


Instructions différentes 


La table ci-dessous indique la corres- 
pondance entre les deux langages 
pour les instructions divergeant sensi- 
blement l’une de l’autre. 


Basic Applesoft TI Basic 


Touche RESET 
Touche RETURN 
HOME 

INPUT ‘’texte”’;,A 
PRINT CHR$S(4) 


STOP 
NOTRACE 
IF 50 TFEN 


MID$ 
VTAB 6 


Nous commentons par la suite les 
principales différences d'utilisation 
entre les Basics de l’Apple et du TI- 
99, ; 


Touche CLEAR 
Touche ENTER 
CALL CLEAR 
INPUT ‘texte’ :A 
CLOSE” :NEW 
BYE 

BREAK (différent) 
UNTRACE 

IF …. THEN 
ELSE 


Instructions multiples 


Applesoft, comme le Basic Etendu, 

mais contrairement au TI Basic, auto- 

rise les instructions multiples sur une 

ligne. Ces instructions sont séparées 

par des ”’:”. La possibilité d’avoir 

des instructions multiples compense 

l'inexistence du IF .. THEN .… ELSE, 

car on peut écrire par exemple : 

10 IF A=3 THEN B=A+2 :C=5 : 
GOTO 30 

20 B= 1 

là où il faudrait en TI Basic : 

10 IF A= 3 THEN 15 ELSE 20 

15 B= A+ 2 

16C=5 

17 GOTO 30 

20 B= 1 


Respect de l’espacement 


Le BASIC Applesoft est tokenisé, 
c'est-à-dire que chaque mot réservé 
de l’Applesoft est recodé de façon in- 
terne en un caractère spécial. Il est 
par conséquent possible d’accoler 
dans une instruction des noms de va- 
riables : l’interpréteur redécoupe le 
programme en isolant les mots réser- 
vés du Basic. On peut ainsi écrire 
710 PRINTA”; si l’on liste cette ins- 
truction, on obtiendra 710 PRINT 
A”. En TI Basic, les séparations par 
des blancs ne peuvent être omises, et 
710 PRINTA” sera considéré comme 
une erreur de syntaxe. 


bonne  impres- 


L'ordre PRINT peut s’écrire de façon 
abrégée avec le signe ” ?” sur Apple. 
Cela permet d'utiliser l'ordinateur 
comme calculatrice sans perdre de 
temps avec l'entrée complète de l’or- 
dre PRINT. C’est malheureusement 
impossible en TI Basic. 


Il n’est pas obligatoire en Applesoft 
de séparer différents éléments devant 
être imprimés à la queue leu leu par 
le signe ”:”. Ainsi, PRINT A$:B$” 
où PRINT A$B$” sont équivalents 
pour l’Applesoft. Le second mode 
d'écriture est interdit en TI Basic, 
pour leqüel les séparateurs ”;” sont 
obligatoires. 


Le syntaxe de l’ordre PRINT diffère 
aussi d'un Basic à l’autre. Ainsi, 
"PRINT 3 :4” imprime-t-il 3 et 4, sur 
deux lignes successives, en TI Basic. 
Cela donnerait une erreur de syntaxe 
à son concurrent qui, pour imprimer 
de la même manière un 73” et un 
4”, a le choix entre ‘PRINT 3: 
PRINT 4” et ‘PRINT 3 CHR$(13) 
4”. 


Impression de valeurs 


Lors de l'impression de valeurs en TI 
Basic, chaque valeur numérique est 
encadrée par un blanc à gauche et 
un blanc à droite. Ainsi, en TI Basic : 
PRINT VA= 223; donnera 
°A=23 !” 

En  Applesoft, on 
"A=23l" 

Pour obtenir le même résultat en TI 
Basic, il faudrait écrire : 

PRINT ”’A=";STR$(23);”!” 


obtiendrait 


Particularités des bou- 
cles 


Il n’est pas nécesssaire en Applesoft 
de spécifier l'indice d’une boucle au 
niveau d’un NEXT. Ainsi FOR I=1 
TO 10 … NEXT” est-il équivalent à 
"FOR I1=1 TO 10 … NEXT l”. I n’y 
a en effet aucune ambiguité, dans la 
mesure où les boucles doivent forcé- 
ment être imbriquées. Le TI Basic 
exige la spécification de l'indice dans 
le NEXT. 


En TI Basic, une boucle FOR I=2 
TO 1” ne s'exécute pas, et l’on saute 
immédiatement à la suite du ”’NEXT 
l”. Par contre, Applesoft passe une 
fois dans la boucle quand l'indice ini- 
tial est supérieur à l'indice final. 


Interruption 


L'interruption en Applesoft s'opère 
avec CTRL-C (maintenir la touche 
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CTRL enfoncée, puis appuyer sur 
C), le programme pouvant alors être 
relancé en tapant *’CONT”, sauf si 
l'interruption était survenue dans une 
boucle. Pour le TI Basic, l’interrup- 
tion est provoquée par la touche 
CLEAR, la relance du programme 
étant obtenue en tapant ”’CONTI- 
NUE”. Par contre, la relance fonc- 
tionne même si l'interruption a eu 
lieu pendant une boucle. 


Gestion de l’écran 


La présentation à l'écran, lors de 
l'exécution d’un programme en Ap- 
plesoft, est différente : le curseur se 
place initialement en haut et à qau- 
che de l'écran, et non en bas comme 
avec le TI-99 Si vous voulez 
comprendre et transposer les pro- 
grammes Apple, il faut connaître cer- 
taines des instructions de gestion 
d'écran parmi les plus fréquentes : 
HOME : CALL CLEAR, 

curseur en haut 
FLASH : écrit à l’écran en 
INVERSE 


clignotant 
: écrit en noir sur 
NORMAL 
POKE 32,G 


fond blanc 
: retour à la normale 
POKE 33,D 
POKE 34H 


: marge de gauche 
à 
POKE 35,B 


TEXT 
CALL -936 


: marge de droite 
à D 

: marge du haut à H 

: marge du bas à B 

: annule les POKESs 
précédents 

: HOME (autre ma- 
nière) 

: blanchit le reste de 
la ligne 

: remonte l'écran 
d’une ligne 

: position du curseur 

(0 à 39) 

click” sonore 


CALL -868 
CALL -912 
POS(0) 


PEERK(-16336) : 


A l’aide des POKES, il est possible de 
définir une fenêtre dans laquelle dé- 
file le texte à l'écran. Tout ce qui se 
trouve en dehors de la fenêtre reste 
tel quel jusqu’au moment où de nou- 
veaux POKESs, ou TEXT, libèrent 


l'écran. 


Avec l'Apple, lorsqu’au cours d’une 
instruction que l’on modifie à l'écran, 
on appuie sur la touche RETURN, 
on garde ce qu'il y avait avant le cur- 
seur; le reste est effacé. Par contre, 
quand on appuie sur ENTER dans la 
même situation avec le TI-99 Je 
reste de la ligne n’est pas coupé, et 
ce qui suit le curseur reste valable. 


Numéros de ligne et lis- 
tage 
Les numéros de ligne vont de 0 à 


63999 en Applesoft, et de 1 à 32767 
en TI Basic. 
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Le TI Basic possède l'instruction 
NUM (ou NUMBER) pour la numé- 
rotation automatique de lignes, ainsi 
que RES (ou RESEQUENCE) pour 
la re-numérotation. Ces instructions 
n’appartiennent pas au Basic Apple- 
soft. 


Pour obtenir la liste entre les instruc- 
tions 20 et 60, il faut faire LIST 
20,60” ou ”LIST 20-60” en Apple- 
soft et seulement "LIST 20-60” en 
TI Basic. Pour ce dernier, quand la 
limite supérieure (resp. inférieure) de 
la liste est inférieure (resp. supé- 
rieure) au numéro de la première 
(resp. dernière) ligne du programme, 
celle-ci est listée. En Applesoft, rien 
n’est listé dans ce cas. 


Précision numérique 


Le nombre de chiffres significatifs est 
différent entre les deux Basics. Ainsi, 
l'ordre ‘PRINT 1/7”  donne-:t:il 
7142857143” comme résultat avec 
l'Apple et ”.1428571429” avec le TI- 
99, 


Un nombre réel est limité à 1E38 en 


Applesoft (10 puissance 38), et à 
quasiment 1E128 en TI Basic. 


Vrai ou faux ? 


Dans les deux langages, PRINT 
1=2” donnera le résultat 0”, corres- 
pondant à la notion de FAUX. On 
observe par contre des notions diffé- 
rentes du VRAI, qui est codé ”’+1” 
en Applesoft et ’—1” en TI Basic. 


Il faut s’en méfier lors de la transpo- 
sition, car de nombreux programmes 
astucieux utilisent les opérations logi- 
ques pour faire l’économie de l’ins- 
truction IF. Ainsi ’A=1+(B=C)" re- 
vient à programmer ’A=1”, puis IF 
B=C THEN A=2” en Applesoft. Il 
suffirait de remplacer le ”+” par un 
?—” pour obtenir un résultat identi- 
que en TI Basic. 


En matière de logique, il faut faire 
correspondre au AND” et au OR” 
de l’Applesoft le +” et le ”’+”’ du TI 
Basic. Ainsi, ”IF A=1 AND B=2 
THEN _…” se traduit ”IF 
(A=1)*x(B=2) THEN ...”. 


Divergences sur ON X 


L’instruction ’ON X GOTO ...” en- 
gendre un message d'erreur ‘bad 
value in X” en TI Basic si la valeur 
de. X est inférieure à 1 ou trop 
grande. C’est accepté sans contrôle 
par Applesoft qui saute alors à l’ins- 
truction suivante. 


Gestion de chaînes 


À la place de l'instruction de manie- 
ment de chaîne SEG$ du TI Basic, 
Applesoft propose trois instructions, 
dont MID$ qui joue le même rôle 
que SEG$. LEFT$(R$.L) renvoie les 
L caractères à gauche de la chaîne 
R$. A l'inverse, RIGHT$(R$,R) four- 
nit les R caractères à droite. On peut 
donc remplacer LEFTS$(R$,L) par 
SEGS$(R$,1,L) et RIGHT$(R$,R) par 
SEGS$(R$,LEN(R$) + 1,L). 


L'instruction VAL fonctionne de la 
même manière tant que son argu- 
ment contient uniquement une va- 
leur numérique sous forme de 
chaîne. Pour Applesoft, 
VAL(”25F50”) donnera 25” et 
VAL(’ALFRED”) vaudra 0”: le 
processus s'arrête dès qu’un carac- 
tère non numérique est rencontré. 
En TI Basic, l'exécution du pro- 
gramme serait arrêtée dans ces deux 
cas. 


RESTORE ou RESTORE 
100 ? 


Le RESTORE du TI Basic est plus 
puissant que celui de l’Applesoft, car 
il peut débuter à tel ou tel endroit du 
programme. Le RESTORE de l’Ap- 
plesoft relance obligatoirement la lec- 
ture des DATA à partir du haut du 
programme. 


Graphiques et sons 


Les différences au niveau des instruc- 
tions graphiques et sonores sont tel- 
lement importantes que nous ne 
pouvons pas conseiller de transposi- 
tion simple. Il vaudrait mieux réécrire 
totalement les parties de programmes 
concernées. 


Le manque de place nous a 
contraint à différer la publi- 
cation de deux articles et à 
la reporter au numéro 2 de 
799“. Il s’agit d’un éloge de 
la touche REDO, par Robert 
Peltier, et d’une étude de 
Jean Sahal sur les procédés 
économiques de sauvegarde 
de fichiers et programmes. 


Nous prions les auteurs de 
nous excuser. 





Le troisième menuet 


‘] 


de Bach 


Alexandre Duback 


Le TI-99 sait faire de la musique. 
Pour le prouver, voici un petit pro- 
gramme jouant, sur deux voies sono- 
res, le 3° menuet de Jean-Sebastien 
BACH. C'est d’ailleurs plus facile 
que d'exécuter le 2° menuet sur trois 
voies. 


Ce programme est écrit en Basic sim- 
ple. Il ne nécessite donc aucune 
configuration particulière pour fonc- 
tionner. 


Les lignes 140 à 190 affichent au 
centre de l’écran le titre du morceau. 
Cet affichage, comme dans la plupart 
des programmes musicaux que nous 
publions, est réduit au strict mini- 
mum. Il ne tient qu’à vous de l’amé- 
liorer.… 


Les lignes 200 à 580 donnent à dif- 
férentes variables les valeurs de fré- 
quences des notes utilisées tout au 
long du morceau de musique. Les 
lignes 600 à 620, quant à elles, don- 
nent les valeurs des différentes 
durées de notes utilisées. Il est d’ail- 
leurs très significatif du style de Bach, 
très syncopé, qu'il n'y ait que trois 
valeurs différentes à ce niveau. Le 
volume, enfin, déterminé à la ligne 
640, consiste en une seule valeur. 
Cela aussi est assez caractéristique du 
style du:compositeur. 


mL Ts 
Eire v 
Lur 15 


! 


D © +4 


ST Là 


CALL CLEAR 
FRINT 


RE 


FRINT LE 


14: 


JEME 


pe pen et et pet et pet pot 


PORN OR EE EE EEE EE EEE EEE! 


MENUET GE H£CH 


DRÉERELÉEÉÉEEEERERÉELESEREERESE ) CS2=277 


La série des instructions ’’musicales” 
débute à la ligne 660 et consiste en 
toute une suite de CALL SOUND. 
Profitons-en pour rappeler que les 
valeurs qui suivent cette instruction 
se décomposent comme suit : 


— durée 

— fréquence de la première voie 
— volume de la première voie 

— fréquence de la deuxième voie 
— volume de la deuxième voie 

— fréquence de la troisième voie 
— volume de la troisième voie 


Ainsi, la programmation du son sur 
une seule voie requiert seulement 
trois valeurs en argument du CALL 
SOUND. Vous pouvez vérifier que ce 
menuet de Bach est bien joué sur 
deux voies. 


Il aurait été possible de concevoir ce 
programme différemment. Sans pré- 
tention artistique aucune, j'ai écrit le 
petit programme ci-joint qui joue sur 
une seule voie le thème bien connu 
de Frère Jacques. Mon propos n'était 
certes pas d’éblouir par mon talent 
musical, mais d'illustrer une autre 
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forme de programmation : toutes les 
données numériques sont regroupées 
dans des lignes de DATA, puis lues 
une à une et interprétées avec une 
seule instruction CALL SOUND, utili- 
sée autant de fois qu’il y a de notes 
dans le morceau. 


Remarquez que, pour me simplifier 
le travail, j'ai utilisé une seule durée 
de note, ce qui, sur les notes lon- 
ques, n’est pas du meilleur effet. Ce 
programme de Frère Jacques est: 
donc très perfectible : 

- on pourrait en premier lieu faire va- 
rier la durée de façon plus efficace; il 
ne serait pas nécessaire d'indiquer la 
durée à chaque note, mais seulement 
les changements de durée ; 

- on pourrait surtout jouer cet air sur 
plusieurs voies en utilisant la techni- 
que du canon : la première voie joue 
normalement le thème principal que 
la seconde voie reprend ensuite avec 
une mesure de retard... 


Voici présentées deux approches de 
programmation différentes pour un 
même résultat. Il en existe sans 
doute d’autres. Vous avez même 
peut-être déjà votre idée sur la meil- 
leure façon de programmer un mor- 
ceau de musique. Envoyez-nous vos 
créations ! 


C4=1047 
D4=1175 
E4=1:19 
F4=1397 
G4=1568 





970 REM #4##4#% MESURES #4 1190 CALL SOUND(X,G2,V,D1,V) 
600 X=300 1190 CALL SOUND(X,G2,V,61,V) 
rés à 1200 CALL. SOUND(X, 62, V, D1, V) 

ne ché 10 CALL SOUNDIX,G62,V,H1,V) 
830 REM ##* VOLUME ##%# 220 CALL SOUND(X,62,V,61,V) 
640 V=G 230 CALL SOUND(X,E3,V,G1,V) 
650 REM IR IIIINEEX 1240 CALL SOUND(X,D3,V,G1,V) 
660 FOR &=1 TO 2 1250 CALL SOUND(X,G5,V,G1,V) 
870 CALL SOUNDIX,G2,4V,61,4V) 24% CALL SOUND{X ù 23, V, Di,V) 
880 C&LL SOUND(X,HI,V, GI, Vi 1270 CALL SOUND {X,FS3,V,D1,V) 
895 SOUND (X,DS,V,GI,V) 1285 CALL SOUND(X,G3,V,61,4V) 
706 SOUND(X,63,V,61,V) 290 CALL SOUND(X,G3,V, 1,4) 
16 € SOUND (X,83,V,DI,V) 300 CALL SOUND(X,G2,V,D1,V) 
20 C&LL SOUND(X,FS5,V,DI,V) 310 CALL SOUNDIX,G2,V,61,4) 
750 CALL SOUNDIX,G3,V,G1,V) 320 CALL SOUND{X,G2,V,D1,V) 
749 CALL SOUND(X,GS, V, EI, Vi æ_ [30 CALL SOUND{X,G2,V,BI,V) 
750 CALL SOUND(X,G2,V,D1,V) . 340 CALL SOUND(Y,ES,V,C1,V) 
7éii CALL SOUND(X,G3,V,G1,V) 350 CALL SOUND({X,DE,V,E1i,V) 
770 SQUNDX,G2,V,D1,4) ‘1360 CALL SOUND{X,C3,V,E1,V) 
780 CALL SOUND(X,G2,V,R1,V) 370 CALL SOUND{X,HE,V,G1,V) 
790 CALL SOUND(X,G2,V, GI, 4) "1 1380 CALL SOUND(X,45,V,61,V) 
800 CALL SOUND(X,B3,V,G1,V) 390 CALL SOUND(Y,DS,V,B1,V) 
S1û CALL SOUNDIX,DI, NV, GI, Vi SOUND (X,C3,V,DI,V) 
825 C&LL SOUND(X,GE,V,Gi,Vi 8LL SOUND(X,HE,V,D1,V) 
SES CALL SOUND(X, AZ, U,D1I,4) 1450 Ca SOUND{X,43,V,G1,V: 
945 CALL SOUND (X 4 FS3, V, DT 147 SOUND {X é ge y,61,4) 
850 CSLL SOUNDIX,GS,V,GI,V) SOUND (X,AZ,V,C1,V) 
860 CALL SOUND(X,G3,V,E1,V) 1450 CALL SOUND{X,HI,V,CI1,V) 
870 CALL SOUND(X,GZ7,V,DI,V) 1440 L SOUND(X,C3,V,C1.V) 
880 SOUND (X,G2,V,G1,V) 1470 CALL SOUND(Y,D2,V,C1,V) 
870 SOUND CX,G2,V,DI, Vi 1480 CALL SOUND(Y,FS2,V,D1,V) 
700 SOUND(X,GZ,V, EI, Vi) 1490 CALL SOUND(Y,G2,V,6G1,V) 
910 SOUND (Y,E3,V,C1,V) 1500 CALL SOUND(Y,G2,V,D1,V) 
7E0 SOUND (Y,ES, V, GI, Vi 4: 1519 CALL SOUND (Y,62,4V,61,4) 
730 SOUND (X, ES, V, CI, V) : 1520 C: SOUND(X,63,V,E1,V) 
740 SOUND{X,G35,V, CI, Vi 1530 SOUND(X,A3,V,EI,V) 
730 SOUND {V, DS, V, HE, V) 1540 CALL SOUND(X,B3,V,DS1,V) 
360 SOUND (Y, DS, V,G1, 4} 1550 CALL SOUND(X,A3,V,DS1,V) 
F7 SOUND{X,DS,V,EH1,V) 1560 L SOUND{X,G2,V,H1,V) 
geû SOUND(X,G3,V,B1,V) 1570 SOUND{X,FS?,V,R1,V) 
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SOUND (Y,C3,V, A1, V) 1580 CALL SOUND(Y,G2,V,E1,V) 
SOUND {X, D3,V,FS1,V) 1590 CALL SOUND(Y,E?,V, Bi, V) 
SOUND {X,C3,V,FS1,V) 1600 SOUND (Y,EZ, V,E1,V) 

020 SOUND (X, BE, V,G1, Vi Î4 SOUND(X,G3,V,E1,V) 

1930 CALL SOUND(X,C3,V,G1,V) É/2 20 CALL SOUND(X,FS3,V,E1,V) 

1040 CALL SOUND(X,A5,V,D1,V) :0 CALL SOUND{X,E3,V,G1,V) 

1050 CALL SOUND(X, AS, V,E1,V) SOUND (X,G3,V,61,V) 

1060 CALL SOUND(X, AS, V,FS1,V) us CALL SOUND(X,FS3,V, E2, V) 

1070 CALL SOUND(X, AE, V, DI1,V) O CALL SOUND(X,E3,V,E2,V) 

1080 CALL SOUND(X, AS, V, EI, V) MN à. 470 CALL SOUND(X,FS3.V,E1,V) 

1090 SOUND {X,43,V,FS1,V) $ 1680 CALL SOUND(X,FS3, V, DSi, V) 

1100 CALL SOUND(X,G2,V,61,V) 1890 CALL SOUND(X,BE, V,FS1,V) 

1110 CALL SOUND{X, BE, V,G1,V) 700 CALL SOUND(X,BS,V,EZ,V) 

1120 C8LL SOUND(X,DS,V,G1,V) 1710 CALL SOUND(X, RS, V,FS1,V) 

1130 CALL SOUND({X,G3,V,G1,V) 720 CALL SOUND(X,BS,V,DS1,V 

1140 SOUND(X, AS, V,D1,V) 1730 CALL SOUND(X,G3,V,E1,V) 

1150 . SOUND(X,FS3, V, DI,V) 740 CALL SOUND(X,FS3,V,E1,V) 

1160 CALL SOUND(X,G3,V,G1,V) 750 CALL SOUND(X,E3,V,61,V) 

1170 CALL SOUND(X,G3,V,B1,V) 760 CALL SOUND(X,G3, V,G1,V) 





1770 CALL SOUND(X,FS5,V,R2,V) 2270 CALL SOUND(X,A3,V,D1,V) 
1780 CALL SOUND(X,ES,V, BE, V) 2280 CALL SOUND(X,AS,V,E1,V) 
1790 CALL SOUND(Y,FSS,V,HI,V) 2290 CALL SOUND{X,A3,V,FS1,V) 
1800 CALL SOUND(Y,BS,V,A2,V) Æ 2300 CALL SOUND{X,AS,V,D1,V) 
1810 CALL SOUND(Y,E3,V,G1,V) 2310 CALL SOUND(X,AS,V,E1,V) 
1870 CALL SOUND(X,FS3,V,A2,V) CALL SOUND(X,A3,V,FS1,V) 
1930 CALL SOUND(X,G3,V,AZ,V) 2350 CALL SOUND(X.G2,V,G1,4V) 
1840 CALL SQUND(X,44,V,A2,V) 2540 CALL SOUND(X,R3,V,G1,V) 
1850 CALL SOUND(Y,H3,V,EB2,U) 2350 CALL SOUND(X,D3,V,G1,V) 
1860 CALL SOUND(Y,DS3,V,E1,V) 2360 CALL SOUND(X,G3,V,G1,V) 
1870 CALL SOUND(Y,EZ,V,EI,V) 70 CALL SOUND(X,43,V,D1,V) 
1880 CALL SQUND(X,DS3,V,E1,V) CALL SOUND(X,FS3,V,D1,U) 
1890 CALL SOUND(X,E3,V,EI,U) 2590 CALL SOUND(X,G63,V,G1,4) 
1900 CALL SOUND(Y,FSE,V,E1,V) 2400 CALL SOUND(X,63,V,H1i,V) 
1919 CALL SOUND{Y,G3,V,BI,V) 2410 CALL SOUNDIX,GZ,V,D1,V) 
1920 CALL SOUND(X,G3,V,D1,V) 2420 CALL SOUND(X,G2,V,G1,V) 
1935 CALL SOUNDIX,FS3,V,D1,V) 2430 CALL SOUND(X,G2,V,D1,V) 
1540 CALL SOUND(X,E3,V,6G1,V) 2440 CALL SOUND(X,G2,V,H1,V) 
1950 CALL SOUND(X,D3,V,G1,V) 2450 CALL SOUND(X,62,V,61,V) 
1960 CALL SOUND(Y,E3,V,C1,V) 2460 CALL SOUND(X,B3,V,G1,V) 
1970 C8LL SOUND(X,ES,V,D1,V) 9470 CALL SOUND (X,D3,V,G1,V) 
1980 CSLL SOUND(X,DS.V,D1,V) 2480 CALL SOUND(X,G3,V,61,V) 
1990 CALL SOUND(X,C3S,V,EI,V) 2490 CALL SOUND{X,A3,V,D1,V) 
2900 CALL SOUND(X,BS,V,E1,V) 2500 CALL SOUND(X,FS3,V,D1,V) 
2010 CALL SOUND(Y,CE,V,81,V) 250 CôLL SOUND (X,63,V,6G1,V) 
2020 CALL SOUND(X,C3,V,B1,V) 2520 CALL SOUND(X,G3,V,B1,V) 
2030 CALL SOUND(X,B3,V,B1,V) 2520 CALL SOUND(X,62,V,D1,V) 
2040 CALL SOUND(X,AS,V,CI,V) 2540 CALL SOUND(X,G2,V,61,V) 
2050 CALL SOUND(X,G2,V,C1,4V) “2550 CALL SOUND(X,G7,V,D1,V) 
2069 CALL SOUND(Y,FS2,V,D1,V) 3 2560 CALL SOUND(X,G62,V,H1,V) 
2970 CALL SOUND(X,EZ,V, 81,4) 2570 CALL SOUND{Y,ES,V,CI,4) 
2080 CALL SOUND(X,FS2,V,A1,V) 2580 CALL SOUND(X,DS,V,E1,V) 
2090 CALL SOUND(Y,D2,V,D1, V3 : 2590 CALL SOUND(X,CS.V,E1,V) 
2100 CALL SOUND(X,A3,V,FS1,V) 2600 CALL SOUND(X,HS,V,GI,V) 
2110 CALL SOUND(X,AS,V,DI,V) 2610 CALL SOUND(X,AS,V,G1,V) 
2170 CALL SOUND(X,D?,V,F81,V) 2620 CALL SOUND(Y,D3,V,H1,V) 
2150 CALL SOUND{X,D2,V,D1,V) 2630 CALL SOUND(X,CS,V,D1,V) 
2140 CALL SOUND(X,D2,V,FS1,V) _ | 2640 CALL SOUNDtX,B3,V,Di,V) 
2150 CALL SOUND{X,D?,V,D1,V) | 2650 CALL SOUND(X,AS,V,G1,V) 
2160 CALL SOUND(X,BS,V,G1,V) 2660 CALL SOUND(X,G2,V,G1,V) 
2170 CALL SOUND(X,BS,V,D1, 4) 2670 CALL SOUND(X,A43,V,C1,V) 
2180 CALL SOUND(X,D2,V,G1,V) 2685 CALL SOUND(X,B3,V,C1,V) 
2196 CALL SOUND({X,DZ,V,DI,V) 2690 CALL SOUND{Y,D?,V,CI,V) 9 


2260 C&LL SOUND(X,D2,V,61,4) 2700 CALL SOUND{Y,FS2,V,D1,V) F 


2 


2210 CALL SOUND(X,D2,V,D1,4) 2710 CALL SOUND(Y,62,V,G1,4V) 
2270 CALL SOUND(IY,CIS,V,FS1,Vi 2720 CAEL SOUND(Y,G2,V,D1,4V) 


2230 CALL SOUND(X,DS,V,D1, V) 2730 CALL SOUND{Y,62,V,G1,V) | 
2249 CALL SOUND(X,C3,V,D1,V) 2740 FRINT "ENCORE UNE FOIS!" ÎLE 
2250 CALL SOUNDIX,H3,V,G1,V) 2750 NEXT 4 he 
22460 CALL SOUND(X,C3,V,G1,V) 2760 END 


Programme de ”’Frère Jacques” 


1000 DATA 262,294,770,262 1070 DATA 2:30,262,262 
1010 DATA 262,294,3530,262 1080 DATR 262,262,196,196,262,267,762 


ns Lo 
1020 DATA 330,549,392, 392 1090 DATA 262,262, 196, 196,262, 262,262 
1959 DATA 330,349,392,392 1100 FOR I=1 TO 45 
1040 DATA 392,440,392,349,330 1110 READ À 
1050 DATA 3350,262,262 1120 CALL SOUND (500, 4, 0) 
1060 DATA 392,440,392,349,330 1130 NEXT I 
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Le dernier robot est un programme 
de jeu qui nous a été gracieusement 
donné par le club TISOFT-HOME de 
Bruxelles. Il est beaucoup plus spec- 
taculaire par ses qualités graphiques 
que par ses possibilités stratégiques. 
La règle est inspirée de celle du célè- 
bre jeu de Marienbad: on dispose 
plusieurs lignes contenant chacune 
un nombre donné d’allumettes ; cha- 
cun des deux joueurs enlève dans 
une ligne autant d'objets qu'il le 
veut. Le perdant est celui qui enlève 
la dernière allumette. 


Dans ce programme de jeu, il est 
possible de jouer à deux, ou seul 
contre l’ordinateur. Mais ce qui est le 
plus intéressant, c’est la représenta- 
tion du jeu qui est faite par l’ordina- 
teur. Les allumettes y sont rempla- 
cées par des robots admirablement 
dessinés, en plusieurs couleurs. En 
outre, la règle traditionnelle est modi- 
fiée dans ce jeu : il y a une limite (de 
3 unités) au nombre de robots que 
l'on peut enlever en un coup. Ils sont 
cinq par ligne, plus un sur le côté 
gauche qui exécute les cinq autres. 


Les choses se déroulent de la façon 
suivante : le joueur indique le nu- 
méro de la ligne dans laquelle il veut 
abattre des robots. Le robot se trou- 
vant à la gauche de cette ligne tend 
alors son bras droit, armé d’un pisto- 
let-laser. Le joueur indique le nom- 
bre de robots qu’il souhaite abattre. 
L’exécuteur oscille alors la tête: de 
haut en bas pour marquer son ac- 
cord, ou de gauche à droite s’il n’est 
pas d’accord (vous avez indiqué plus 
de trois robots ou un nombre supé- 
rieur à celui des robots encore ‘’vi- 
vants” dans la ligne). 


Lorsque l’accord de l’exécuteur est 
acquis, ce dernier tire avec son pisto- 
let-laser et élimine le nombre de 
robots désirés dans la ligne indiquée. 


Nous avons aussi beaucoup aimé 
l'exposé qui est fait de la règle du 
jeu : il s’agit d’un texte montré du 
doigt par un robot qui fait du bruit 
pour attirer notre attention chaque 
fois qu’un nouveau paragraphe ap- 
paraît à l'écran. En outre, à la fin du 
jeu, un autre robot (ou le même, qui 
sait ?) traite de ’’sot” le perdant, que 
ce soit le joueur, désigné par son 
nom, ou le TI-99, 
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Le dernier robot 


Edourd Jouan 


En conclusion, nous dirons que c’est 
là un programme excellent pour les 
jeunes enfants : la représentation gra- 
phique est parfaite et la stratégie de 


60 RE COPYRIGHT 99 MAGAZINE 
70 REM ET EDOUARD JOUAN 


100 CALL CLEAR 

116 M$="UN PETIT MOMENT" 

129 R1=9 

130 CI=5 

140 EOSUB 4180 

150 NM$="POUR FORMER LA TROUPE... * 
160 CI=CI-3 

176 GOSUB 4180 


l'ordinateur assez pauvre pour don- 
ner des chances à tous. Quelqu'un 
veut-il modifier le programme pour 
rendre sa stratégie optimale ? 


180 R=9 

190 C=2 

200 FOR 1={ TO 42 
219 READ A,B$ 

220 CALL CHAR(A,B$) 
230 NEXT I 

249 GOSUB 3170 

259 EOSUB 3780 

280 MS="LE DERNIER ROBOT" 
270 L=-4500 

280 GOSUB 4160 

290 C1=C1+2 

300 EOSUB 4180 











319 M$="ECRIT PÉR JIM MULLER® 
320 RI=RI48 
330 GOSUB 4180 
340 Mé="RICHARDSON, TEXAS* 
350 RISRI+10 
380 L=-2250 
370 GOSUR 4140 
380 GOSUB 4190 
396 S0SUB 3950 
400 GOSUE 4310 
410 K$="UOULET-VQUS LES REGLES?" 
420 BOSUB 1790 


430 L=-2250 


Lé5 BOSUB 3850 
470 M$="FAITES D OÙ N° 
48û Ri=RI48 


496 50SUB 4180 

306 CALL KEVIS,K, 5) 

510 IF S=6 THEN 500 

S20 IF K=75 THEN 510 ELGE 99f 

JG SOSUR 4510 

59 SOSUE 385 

Soÿ Hé='IL V A TROIS LIGNES DE 5 ROBOTS CHÉC 
URE, 

co RI=RI-4 

270 GOSUE pr 
S80 MS='LE JEU 
ERSAIRE TIRER 
gnÿ RI=RI-S 

569 GOSUE 4186 
6i9 M&="CHAQUE JOUEUR PEUT TIRER JUSQU" A 
TROIS  ROBOTS 8 CHAQUE COUP DEN 

UNE MEME LIBRE, D 

26 RI=RI+! 

B3 SOSUR 41858 

630 MS=°UN JOUEUR SEUL JOUE CONTRE LE TI- 
99, (IL EST TOUT & FAIT POS 

5] _. pe LE BATTRE)" 


SISTE À 
de DERNIER. 


£ 
& 


in 12600 
&B0 GOSUE 4280 

890 EOSUE 4310 

700 MS="POUR JOUER" 

FAO RI-RI-6 

730 CALL HCHARUR! -5,10,122,LEN(N#)} 

740 Y=50 

750 EOSUB 4280 

760 M$="INDIQUEZ LA LIGNE, PUISLE NOMBRE DE 
ROBOTS. LEROBOT DE GAUCHE SE CHA 

RGE DES HAUTES OEUVRES..." 

T0 RI=RI-A 

780 EOSUB 4180 

790 M$="1,2,0U 3 INDIQUENT LE NOMBRE DE ROB 
Qrs" 

00 RI=RI#I 


8:9 6OSUB 4189 

820 M$="IL VALIDE VOTRE CHOIX, PUIS IL L'EYE 
CUTE. # 

BED RI=RI#4 

346 EOSUB 4180 

856 H#="LA LIGNE DU BAS DE 

INDIQUE LA MARCHE DÙ JEU." 

860 RI=RI+8 

870 SOSUB 4189 

88û 1=500 

890 GOSUB 4290 

s00 SOSUB 4310 

910 M$="1, 2, OR 3 JOUEURS?" 

720 L=-2000 

930 6OSUB 3780 

940 GOSUE 4180 

950 GOSUB 4180 

$eû GOSUB 3450 

570 GOSUB 3280 

580 GOSUB 4480 

990 GOSUB 4310 

1000 M$="NOMS DES JOUEURS : 
& LETTRES OÙ ESPACES POUR CHACUN, }* 

1910 RISRI-6 

1620 SOSUE 4185 

1930 M6='EN CAS D'ERREUR, FAITES *Q°" 

1940 RI=R1+12 

1950 GOSUR 4180 

1960 ON NI GOSUB 4560,4630,4890 

{070 P=N! 

1980 1=129 

1990 6OSUB 4280 

1190 CALL CLERR 

{110 R=1 

1120 GOSUE 3940 

[130 R=9 

1149 GOSUR 3940 

1130 R=17 

1169 SOSUB 346 

1170 M$="PLAYER: 
1186 RI=24 

1190 C1=2 

5209 GOSUR 4180 
1210 à=5 

1220 B=5 

1230 CC=5 

1249 T=]5 

1250 ON P GOSUB 1280, 1280, 1400 
1280 GOSUB 1310 

1270 60TG 1260 

1230 RANDOHIZE 

1290 62=INT (2#RND)+! 

1300 ON 62 GOTO 1316,1350 

1310 PS=PIS 

1320 IF T=1 THEN 2780 

1330 GOSUB 5070 

1340 6OSUB 1510 

1350 P$=P2$ 

1380 IF T=1 THEN 2780 


L'ECRAN VOUS 


{ENTREZ 





1370 GOSUB 5070 

1380 60SUB 1315 

1390 RETURN 

1400 RANDOHIZE 

1419 G3=INT(SERND)+1 

1420 ON 63 SOSUB 1310,1359, 1450 
1430 GOSUB 1450 

1440 6070 1430 

HASQ P4=PIS 

1460 IF T=1 THEN 2740 

1470 SOSUB 5070 

1480 60SUB 1510 

1450 SOSUR 1319 

1969 RETURN 

1510 IF P4="T199/4* THEN 1520 ELSE 1560 
1520 N=W#! 

1536 IF NS THEN 1940 ELSE 1570 
[549 A=1 

1530 G60TD 1570 

1580 GOSUR 4370 

1979 C1 

1580 ON N 60TD 1590,1859,1710 
1996 R=1 


(660 D=8 
1870 SOSUB 1770 

1680 1F Z1=0 THEN 1519 

1890 B=D 

1700 RETURN 

1710 R=17 

1720 D=££ 

1730 BOSUB 1770 

1740 IF 22=0 THEN 1510 

1750 CC-D 

1760 RETURN 

1710 BOSUB 3780 

1780 1F PS="TI99/4" THEN 1780 ELSE 1870 
1790 1F T)12 THEN 1800 ELSE 1820 
1800 M=1 

1810 EOTO 1880 


1830 N1=T-9 

1840 GOTO 1886 

1850 NI=4-N! 

1860 SOTO 1880 

1870 GOSUB 4440 

1890 RI=R 

1890 60SUB 3510 

1900 IF T-NI{=0 THEN 1920 
1919 IF DENI THEN 1929 ELSE 2040 
1920 6OSUB 3560 

1930 SOSUB 3850 
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HD ke he fe hr A re re re kr 


Thomson … Texas : ? à ? 


HA ke re er re er er re re rer rer re er rt 


Test-match Duriez N° 1 5:25" 


31 mai sauf épuisement ou 
XX modifications tardives. 


HA A he er re er Arr rer re rer re rt 


Texas … Thomson : 2290 F … 4340 F 


LÉ RRR RSR RS RSR Re RL RL RL Re RL RL Rd RS LR LR RL LS do à 


(69 e6ed) sine398j-e91A18s np 00Z 82u819}9H 





\ = 4 


SIUT 172 
aux prix 
Duriez 





C2 


NS 





er, 


Langage Basic 





TEXAS INSTR. 
T.I. 99 4 A 


En machine 


COTE 
DURIEZ 











PRIX 
DURIEZ 


en 13 rounds 
dont 4 périphériques 


THOMSON TO 7 


+ MEMO BASIC | DURIEZ 








+ 
x 
.. 2 ordinat 


x 


enseignemen 


Pour vot 


Voici 


eurs personnels uni- 


versels ‘‘grand départ’’ (maison, 


t, bureau, etc) 


2 grands succès chez Duriez. 


re commodité, les 


conseillères informatiques Duriez 


leur ont attribué des étoiles ***, 
sans tenir compte des prix. 


+ 


PRIX Bien sûr, 


joue. Mais le 


ces appréciations 


DURIEZ YX sont discutables. L’irrationnel 


s performances tech- 


x niques sont chiffrables. 


RE À Ces 2 nouveautés sont visibles 
Mémoire vive 16 Ko 8 Ko & chez Duriez, spécialiste du quoti- 
programmable x dien magique. 

Affichage 24 x 32 caract. Es 25 x 40 caract. ù à Venez les essayer, comparer, 
ou 192 x 256 pts £S F2 ou 200 x 320 pts| 523 vous faire initier (sans engage- 
SAS S 32 ment) et mettre le pied à l’étrier 
Couleurs CES 8 CT 4 S de l’Informatique à tout va. 
8S 0 EQ® ’ 
Son + + * Autres modèles 
È k< œ© N , : 
Rapidité calcul | 38 secondes SSe 9,5 secondes ë Sa d'ordinateurs ” 
(test Duriez) SUN cÈS à “grand départ” 
80 S 3 : : 
Clavier QWERTY, type | SYÈ AZERTY, ô QE à comparer, disponibles chez 
au de 5 S QE x Duriez 
mach. à écrire à SÈ à membrane ESS . 
> Los x Atari 400 Fttc 2990 
Crayon optique | Non Oui Atari 800 7500 
Commodore Vic 20 2320 
Le x : : x 
Logiciel Dominante jeux Dominante Sanyo PH 25 1990 
Enseignement * Sinclair ZX 81 790 


Total qualités 


Prix Duriez unité centrale ttc 


AA DDASS ar 1212 








2290 F 








x Aussi chez Duriez : 


4340 F #% Ordinateurs portatifs. Autre 


4 grande spécialité Duriez. 


Fttc 950 
Périphériques et accessoires Là ue rs A 
Magnétophone | Cordon Texas + Lecteur-Enregis- 890 F x Casio702P 1095 
magnéto Radiola treur TO 7 avec Texas CC 40 2750 
6600 (ou autre) commentaire x ae er “#à 5980 
cime H.P. 41 C 1695 
Extensions Boîtier périphé- SÈE 3640 F || Cartouche16Ko s ÈS 980 F he es : “4 2520 
mémoire rique + Carte | Sà£ S3È “4 
SQ & etc 
32 Ko eus 8 NS s «due 
| | SS 0 à 2.1 x 
Lecteur de Boîtier périph. | © z | 7050 F || Contrôleur de è S2 5480 F FE 6 2,08 2 ,8.8,6,8.8.8.0. 
disquettes ( que ci-dessus) | & È & communication £ Se x DURIEZ 
+ carte contrô- | Ê Se + contrôleur 2Se & ii 
N C à découper 
leur - lecteur. è à à pa lecteur Sao x ou photocopier pour Catalogue 6 
Capacité 89 Ko |S NE disquettes SNE Micro-ordinateurs recommandés par 
Imprimante Boîtier périph ÈS 5936 F || Contrôleur de Cie (OS E PEER 
. > S 
+ carte RS 232 communication A renvoyer à Duriez, 132, bd 
+ cordon + cordon À St-Germain Paris 6° (Quartier Latin, 
+ imprimante + imprimante n es 
on. PFÉROM Litres ao 
GT 100 Impact 2 N°... RÉPARER 
Total qualités ss. RE MR For raes 


Prix Duriez ttc 
du système 
complet sans 
double emploi 


Ordinateur + 
magnéto + 
extension + 
lect. disquettes 


15585 F 


Mèêmé ensemble 
que ci-contre 


15920 F 


XX Prière joindre 
+ 
+ 


gratuit. 


3 timbres à 1,80 pour 


frais. Si vous venez chez Duriez c’est 


99 MAG 


Media Conseil 


û 


324 


K 
d 


110 60SUB 


LA 
5 


2510 6OSUB 4020 


Suite de la page 46 


70 
VEU 


d0 ELSE 25 


4" THEN 19 


ñ 


QLORE12,2,11 


n 
} 


0 60SUB 524 


3210 CALL COLOR(LS, 16,1) 


3180 CALL COLOR(1O,E, 1 
3200 CALL 


3! 


2679 GOSUB 4020 


1980 IF BYMIT 


fi 
V 


50, 2400, 2350 


SUB 2740, 2500, 24 


2799 N$=P$ 


CALE 


vyèw 


C#1,143) 


3419 CBLL HEHARIRES, 


- 
$. 
ÿ 


6 CALL HOMARUR#4,C#3, 115! 


4 


91h 
3286 


ÿ GOSUR 


285 


92} 


R,C42, 101! 


Î 


CALL HCHAR(R#I,C+1, 1 
40 CALL HCHARIR+ 


CALL HCHSR 
3359 RETURN 


ÿ 
û 


117 
F4 
7 
à 


“ 


5474 CALL HCHÉR 


ÿ 
TE 
à 
75 
J 


35 


7 
+ 
J 
J 


VER, * 


ul 


1 
ÿ 


j 6OSUB 4180 


il 


Li 
cz 
=] 
LS 
Lai 
Æ: 
e] 
=] 
ca 
ras 
Lis 
2 
==3 
= 
U 

+ 
= 
D 
Fe. 
cr 


500 


= 
3 


fl 


ë 


419 EOSUB 4920 


la 


2330 GOSUB 4 


de : 


3619 RETURN 


Q THEN 3010 
9 IF KCQ THEN 1100 


3020 IF S 


+ 
4 
ÿ 





} 
} 


} 
} 
34 
7€ 
35 


7 


} 
Ï 


53 


132 
7 
ê 
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ALL HCHAR(R,C#2, 1 


gc 


LH 


5640 CALL HOHARIR#I,C41, 1 
50 CALL HCHAR(R#],C+ 


3620 CALL HCHARIR,C+i, 
J 


383 


Z4 


jo 


650 GOSUB 3280 


7 
J 


Q 
3090 GOSUB 3260 


4 
s 


3 
7 


2440 RETURA 
2460 GOSUE 4 
2480 6OSUB 4020 
2496 RETURH 


3690 CALL HEHARUR, C#1, 32,2) 
3700 CALL HOHARIR#, C4, 130) 
3710 CALL HCHARUR#1,C42, 131) 
3720 CALL HOHAR(R42,C41, 152) 
3130 CALL HEHAR(R42, (+2, 153) 
3740 CALL HCHARIR#2,C41, 105,2) 
3750 NEXT Y 

3780 BOSUR 3280 

3770 RETURN 

3780 CALL HOHARIR42,C43, 144) 
3790 CALL HCHBRIR42,C44, 145) 
3809 CALL VCHARIR43,C43, 32,3) 
3810 CALL HCHAR(R42,C45, 134) 
3820 CALL HOHARIR42,C48, 137) 
3830 SDSUB 3510 

3940 RETURN 

3950 CALL HCHARUR42, C#4, 32,3) 
3840 CALL HCHARIR42,C43, 106) 
3870 CALL HOHARIR4S,C43, 110) 
3890 CALL HOHARIR4A,C43, 115) 
3990 CALL HCHARUR4S,C43, 119) 
3900 60SUR 3280 

3910 RETURK 

3920 FOR 1=C47 TO C1 

3930 CALL HCHAR(R47, I, 138) 
3940 L=-500 

3950 BOSUE 4170 

3960 NEXT I 

3970 CALL SOUNDE1000, -7,0) 


3980 FOR 1=C+7 TO C1 


3990 CALL HCHARIR42, 1,32) 
aQqg MENT I 


4019 RETURN 

4920 SOSUB 3920 

4030 CALL SOUNDI-200, 110, 1, -7,01 
4040 CALL VOHARIRI42,C1#1,139,4) 
4050 CALL VOHARIRL42,C1#1,32,4) 
4040 CALL SOUNDI-209, 110, 1, -7,0) 
4070 CALL VCHARIRI,C1+2, 139,7) 
4690 CALL VEHARIRI,C1+2,32,7) 
4090 CBLL SOUND(-200, 110,1,-7,0) 

4100 CALL VOHARIRI,C1+3, 139,7) 

4110 CALL VOHAR(RI,C143, 32,7) 

4120 CALL SOUND{-200, 110,1, -7,0) 

4130 CALL VEHARIR142,C144, 139,4) 

4149 CALL VCHAR(R1+2,C144,32,4) 

4150 RETURN 

4140 CALL SOUNDEL, 1780, 1, -7,0) 

4176 RETURN 

4180 FOR A1=1 TO LENCHS) 

4190 CALL HCHAR(RL, CH, AGCISEBSIMS, A1, 111 
4200 CI=CIH 

4210 IF C1)32 THEN 4220 ELSE 4240 

4220 RI=RI4 

4230 C1=10 

4240 NEXT A 

4250 RI=11 

4240 C1=10 

4270 RETURN 
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4280 FOR DE=! TO X 

4290 NEXT DE 

4309 RETURN 

4310 REM CLEAR SCREEN 
320 FOR R2=5 T0 23 

4330 C1=10 

4340 CALL HCHAR(R2, C1, 32,23) 
4350 NET R2 

4380 RETURN 

4370 M$="LIGNE 7° 

4590 R1=24 

4390 CI=17 

4406 EOSUB 4180 

4410 6OSUB 4510 

4420 N=K-48 

4430 RETURN 

4449 M$="NOMBRE?" 
4450 RI=24 

4489 C1=17 

4476 60SUB 4180 

4480 BOSUB 4510 

4496 NI=K-48 

4500 RETURN 

4510 CALL KEY{O,K,Si 
4520 IF S=û THER 4510 
4530 1F K<49 THEN 4510 
4540 IF KS1 THEN 4519 
4550 RETURN 

4560 GOSUB 4780 

4570 P24="T199/4" 
4580 N$=P2$ 

4596 RI=R144 

4809 CI=CI#11 

4619 GOSUR 4180 

4820 RETURA 

4830 SOSUB 4790 

4649 RI=RI+4 

4856 GOSUB 4870 


466 P28=P4 


4870 RETURN 

4890 IF N1=1 THEN 4686 ELSE 4760 
4890 GDSUB 4636 
4700 MS=JOUEUR 51° 
4710 RI=R1+4 

4720 CI=19 

4730 GOSUB 4180 
4740 RI=R1+8 

4730 GOSUB 4876 
4760 P3$=P4 

4776 RETURN 

4780 Mé="JQUEUR 1:° 
4790 GDSUB 4180 
4800 GOSUB 4870 
4810 PIS=PS 

4920 M$="JQUEUR 2:° 
4930 RI=RIH4 

4840 C1=19 

4850 GOSUB 4180 
488) RETURN 


4870 FOR V=1 TO 4 

4980 CALL KEY(O,K,S) 

4890 IF S=0 THEN 4880 

4900 CH=2044 | 

4910 CALL HCHARIRI, EL, KI 

4920 IF K=48 THEN 4950 ELSE 4970 
7330 1:15 

4940 GOSUR 4280 


4950 CALL HCHAR(RI,C1-V, 32,7) 


4960 EOTO 4970 
4970 NEXT V 
4980 Ci=29 
4990 CALL BCHARIRE,C141,K) 
5000 CALL GCHARIRI,C142,K2) 
5010 CALL BCHARIRI,CI43,K3) 
5020 CALL BCHARIRI,CL44,K4] 
5030 CALL BCHARIRI, C145,K5) 
5040 CALL GCHARIRI,CI48,K6) 
5050 PS=CHRS KL) LEHRS (K2)LCHRS (LS) LCHRS (KA) 
CHRSKS) LCHRS (KE) 
5040 RETURN 
5070 FOR K=1 TO 4 
<08Q R1=24 
5090 CI=B4 

100 CALL HEHARIRE CI, ASCISEGS PS, 1,11) 
S19 NET L 
5120 RETURN 
5130 DATA 98,0F1F3F7F7F7FRQG0, 97, FOFBFCFEFEF 
E0406, 98, 81837F7F3FSB1FOF, 99, BCÈFEF 
EFCACF8FO 
140 DATA 100,0F1F3F7F7F7FIFIF, 101, FRFCFCFCF 
CF2F2F2, 102, 7F7FTFIFIFIFIFOF, 103, F3F 
TFFFFFFCOFBEO 
5150 DATA 104,3F7FFFFFFFEFFFFS, LOS, FFFFFFFFF 
FFFFEFF. 104, FCFEFFFFFFFFFFOF, 107, F3F 
LFLFOFOFOFO00 
60 DATA 108,FFFFFFFFFF7F7F00, 109,FFFFFFFF 
FFEFEGO, 110, CFAFBFOFOFOFOFOO, LL1, 7F7 
FIF7FIFOFO70S 
5170 DATA 112,FOFOFOFOFOFIFIFS, 113, 3FIFIFIFF 
FFFFFFF, 14, FOFEFERFFFFFFERE, LS, FO 
FOFOFOFRFRFCO 
5180 DATA 116,80E0007000000000, 117, 7FIFIEIES 
EACICO0, 118, FEFE7C7C7C383800, 119,060 
8030E 00000000 

5190 DATA 120, CLCICICICICSESE, 121, 393838283 
8387070, 122, FF00000000000000 

5200 DATA 130,0F1F3F7F7F7FTFIF, 131, FOFSFCFEF 
EFEFEFE, 132, 1FSFSFSFSFAFAFAF, 133, FOF 
8FCFEFEFEFEFE 
5210 DATA 134,CFEFFFFFFFOSLFOF, 135, FEFEFEFEF 
CFRFOEO 
5220 DATA 134, 7F7F7F7F00000000, 137, 7F7080400 
0000000, 138, FF00000000000009, 139, 249 
25S8E7CRT24SE 
5230 DATA 149,FF07030100000000 
5240 DATA 144,FFFFFFFF00000000, 145, FFFFFFFFO 
6000000 
520 DATA 152,60617F3F1F000000, 153, O&B4FEFC 
8000000 
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Référence 

T1 99/4 PHC 004 2.290,00 | Hustle 20 PHM 3034 296,00 
Câble cassette PHA 2000 150,00 Invaders 21 PHM 3053 296,00 
Câble moniteur RS 80 KI 150,00 Munchman 22 PHM 3057 377,00 
Interface Pal PHA 2036 724,00 | Othello 23 PHM 3067 377,00 
Interface RVB 724,00 Parsec 24 PHM 3312 377,00 
Paire de manettes de jeu PHP 1100 255,00 | Tombstone city 25 PHM 3052 296,00 
Synthétiseur de parole PHP 1500 712,00 | Tunnel of doom 26 PHM 3055 296,00 
Mini mémoire 4 K PHM 3058 990,00 | Video games 27 PHM 3018 229,00 
Interface Secam couleur Ordinarion 768,00 | Video gamesIl 28 PHM 3025 229,00 

Wunpus 29 PHM 3023 296,00 
PÉRIPHÉRIQUES INTÉGRÉS [avec boîte périph.] Yahtzee 30 PHM 3039 296,00 
Boîte périphérique PHP 1200 2.000,00 | Zerozap 31 PHM 3036 229,00 
Contrôleur de disquettes PHP 1240 1.750,00 
Lecteur de disquette PHP 1250 3.350,00 CASSETTES DE JEUX {utilisables uniquement 
Extension 32 K PHP 1260 1.600,00 avec le module aventure PHM 3041T) 
Interface RS 232 C PHP 1220 1.385,00 Adventure Land 32 PHT 6046 229,00 
Carte P code PHP 1230 2.210,00 Ghost Town 33 PHT 6053 229,00 
Lecteur de disquette extérieure PHP 1850 4.014,00 | Golden voyage 34 PHT 6047 229,00 

Mission impossible 35 PHT 6051 229,00 
LANGAGES Pirate 38 PHT 6043 229,00 
Basic étendu 49 PHM 3026 1.012,00 | Pyrof doom 39 PHT 6052 229,00 
Assembleur 50 PHM 3055 1.133,00 | Savage Island 40 PHT 6054 229,00 
Logo 51 PHM 3040 1.012,00 | Strange Odyssey 41 PHT 6050 229,00 

The Count 42 PHT 6049 229,00 
MODULES D'ORGANISATION PERSONNELLE Woodo Castle 43 PHT 6048 229,00 
Gestion de rapports 52 PHM 3044/FR 512,00 Mystery Fu House 57 PHT 6051 229,00 
Gestion de fichiers 53 PHM 3013/FR 512,00 
Statistiques 54 PHM 3014/US 647,00 LOGICIELS DIVERS 
Fichier d'adresses [disk] 55 PHD 5001/FR 756,00 Music Maker 44 PHM 3020/FR 379,00 
Conseil financier 56 PHT 6003/FR 101,00 Speech Editor 45 PHM 3011 296,00 

Oldies | 36 PHT 6015 229,00 
MODULES ÉDUCATIFS Oldies 11 37 PHT 6017 229,00 
Addition Soustraction | 1 PHM 3027/US 379,00 
Addition Soustraction II 2 PHM 3028/US 379,00 CASSETTES D'AIDE À LA PROGRAMMATION 
Multiplication | 3 PHM 3029/US 379,00 | Aide à la programmation | 46 PHT 6004 101,00 
Early Reading 5 PHM 3015/US 379,00 Basic par soi-même 47 PHT 6007/FR 101,00 
Begin Grammer 5 PHM 3003/US 229,00 Basic étendu par soi-même 48 PHT 6019/FR 101,00 
Nombre magique 6 PHM 3004/FR 229,00 
Early Learning 7 PHM 3003/US 229,00 LOGICIELS SUR DISQUES 

Aide à la programmation Il 01 PHD 5005/FR 229,00 
MODULES DE JEU Maths 02 PHD 5006/FR 377,00 
Alpiner 8 PHM 3056 377,00 Électricité 03 PHD 5008/FR 377,00 
A-Maze-ing 9 PHM 3030 296,00 | Aide à la programmation II 
Attack 10 PHM 3031 296,00 {extended basic) 04 PHD 5012/FR 229,00 
Aventure 11 PHM 3041/T 377,00 Résistance des matériaux 05 PHD 5016/FR 377,00 
Black-Jack 12 PHM 3033 296,00 | Pascal UCSD Compiler 06 PHD 5063/US 1.240,00 
Blasto 13 PHM 3032 296,00 | UCSD P System assembler/Linker 07 PHD 5064/US 944,00 
Car Wars 14 PHM 3054 296,00 UCSD P System Editor/files/utilites 08 PHD 5065/US 756,00 
Chisholm 15 PHM 3054 296,00 
Connect 4 16 PHM 3038 226,00 Légendes : 
Echecs 17 PHM 3038/FR 296,00 PHM : Logiciel sur module 
Football 18 PHM 3024 296,00 | PHT : Logiciel sur cassette 
Hangmann 19 PHM 3037 296,00 PHD : Logiciel sur disquette 
Total TTC : 

Nom 
Participation aux frais de port +15 F 
Prénom 

Ci-joint mon règlement par : 
CCPO CBC Mandat Adresse Tél. 
La Règle à Calcul Signature 





Voulez-vous rencontrer Louis XVI, 
Clémenceau, Voltaire ?..  Désirez- 
vous remonter le temps jusqu’à la 
prise de la Bastille ou préférez-vous 
assister à la première représentation 
d'un film parlant ? Si c’est le cas, 
laissez-vous aller au fond de votre 
fauteuil et lancez le programme ! 


Non, restons sérieux. Je ne vous pro- 
pose pas de transformer votre ordi- 
nateur en machine à explorer le 
temps. Toutefois, ce petit programme 
très simple, écrit en TI Basic, vous 
permettra de réviser vos connaissan- 
ces historiques tout en vous amusant. 
Après l'affichage du titre, l'ordinateur 
vous annonce à quel évènement his- 
torique vous pourrez assister”. à 
condition d’en retrouver la date. Ras- 
surez-vous, l’ordinateur vous quidera 
dans la recherche de cette date; de 
plus, il se montre bon prince et tolère 
quelques années d'écart. 


Mais le jeu ne s'arrête pas là: une 
fois la date exacte de l'évènement re- 
trouvée, il s’agit pour vous de ren- 
contrer l’un des glorieux ancêtres 
dont l'ordinateur vous affiche aima- 
blement la liste, ce qui suppose bien 
entendu que cet ancêtre soit contem- 
porain à l'évènement. 


Facile, dites-vous ? Sans doute, si 
vous venez d'assister à la prise de la 
Bastille, pouvez-vous sans trop de 
risque vous proposer de rencontrer 
Louis XVI... Mais tous les cas de fi- 
gure ne sont pas aussi simples. De 
plus, la version du programme qui 
vous est proposée ici n’est que l’une 
des versions possibles du jeu. 

Ainsi, vous pouvez sans difficulté ap- 
porter quelques modifications intéres- 
santes. Pour commencer, essayez par 
exemple d'agir sur la difficulté du 
programme en diminuant la marge 
de tolérance aux erreurs de date. 
Cette tolérance est de 5 ans dans la 
version que nous vous proposons ici, 
comme vous le constaterez dans les 
lignes 770 et 780 ; vous pouvez par 
exemple écrire : 

780 IF DOF>2 THEN 790 ELSE 820 
ce qui réduit la tolérance à deux 
années au lieu de 5. 

En outre, vous pourrez modifier la 
liste des évènements historiques en 
remplaçant les lignes de DATA qui fi- 
gurent au début du programme, de 
130 à 200. 

Enfin, rien ne vous interdit d’allonger 
cette liste (la version actuelle n’oc- 
cupe que 5K octets de RAM). L’opé- 
ration est simple : il suffit d’intercaler 
de nouvelles lignes de DATA entre 
les lignes existantes. Mais prenez tou- 
tefois la précaution d’ajouter pour 
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Cherchez l’ancêtre 


chaque nouvel évènement une unité 
supplémentaire à la valeur indiquée 
dans la ligne 410 : 

410 GG= INT(19xRND)+1 

devient ainsi : 

410 GG= INT(20xRND)+1 

après la création” d’un évènement 
supplémentaire. 


Un autre moven de rendre ce jeu 
plus attrayant consiste à jouer à plu- 
sieurs. Dans ce cas, je vous propose 
les règles suivantes : 

— Tout d’abord effacez du pro- 
gramme la liste des personnages his- 
toriques et confectionnez à l’aide de 
petits rectangles de bristol des cartes 
au format cartes à jouer. Sur ces 
cartes est reporté le nom d’un per- 
sonnage du jeu. 

— On tire au sort le joueur qui 
commence et on répartit les cartes 
entre tous les joueurs. Pour le pre- 
mier tour, aucun joueur n’a le droit 
de regarder les cartes qu'il a tirées. 

— Le joueur qui a la main annonce 
son contrat (nombre de points qu’il 
désire marquer). Les autres joueurs 
peuvent lui reprendre la main en 
proposant un contrat plus élevé... à 
leurs risques et périls. Celui des 
joueurs qui a la main joue alors seul. 
— les points de chaque joueur sont 
cumulés et la partie s'achève soit 
lorsqu'un joueur a atteint un nombre 
de points déterminé à l’avance, soit 
lorsqu'un joueur h’a plus de carte. 


A l'intention des débutants (je veux 
dire des grands débutants. parce 
que je ne suis moi-même qu’un dé- 
butant), je préciserai un peu la re- 
cette de ce programme qui est en 
gros celle d’un programme d’ensei- 
gnement assisté par ordinateur. Son 
intérêt est de pouvoir être adapté à 
l'écriture de nombreux jeux très sim- 


RETVZE 


CIS RTS 
;. 


Az 


SY 


Ü 


LES 


7 dE 


Robert Peltier 


1 - Dans un certain nombre de lignes 


DATA, les questions et les réponses 


correspondantes sont regroupées à la 
suite les unes des autres. Par exem- 
ple : 


70 DATA ‘Quelle est la capitale de 


l'Italie ?”,/ROME” Combien 
font 24 "a" etc. 


2 - La lecture des questions peut se 
faire en suivant l’ordre d’écriture des 
lignes de DATA, elle peut se faire 
également de façon aléatoire. Dans 
ce dernier cas, reportez-vous à la so- 
lution adoptée dans le programme 
’Retrouvez l'ancêtre” et à votre ma- 
nuel de programmation pour l’utilisa- 
tion de RESTORE. 


Dans le cas de la lecture dans l’ordre 
des lignes de DATA, l'instruction 100 
READ A$,B$ permet à l'ordinateur 
de lire deux variables : 

A$ est la chaîne de caractères repré- 
sentant la question ; 

B$ est la réponse correspondante. 


La structure générale de ce pro- 
gramme est reprise dans les quelques 
lignes ci-dessous qui ne constituent 
pas elles-mêmes un programme 
complet mais peuvent vous servir de 
point de départ pour l’élaboration de 
jeux basés sur les mêmes principes : 

110 PRINT A$ permet l’affichage de 
la question (n’ajoutez pas ”,B$”, 
ce serait tricher !) 

120 INPUT C$ vous invite à intro- 
duire votre réponse que le pro- 
gramme compare à la bonne ré- 
ponse (B$). 

200 IF B$= C$ THEN 210 ELSE 
230 

210 PRINT BRAVO” 

220 GOTO 100 

230 PRINT ”C’EST FAUX !” 

240 GOTO 120 


Elémentaire, mon cher lecteur ! 
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Programme ”’ cherchez l’ancêtre” 


E TEMPS JUSQU' A" 
60 REM COPYRIGHT 95 MAGAZINE | 390 RANDOMIZE 
70 REM ET ROBERT FELTIER 400 RESTORE 130 
BG REM 410 GG=INT (1G#RND) +1 
90 REM 420 FOR LEC=1 TO 66 
100 REM RETROUVEZ L ANCETRE OCCUFE 4,86 470 READ EV#,D 
Éoctets DANS CETTE VERSION .IL EST DONC 440 NEXT LEC 
PARFAITEMENT FOSSIBLE D'ALLONGER DE FACO 450 RESTORE 
N SUBSTANTIELLE AG FRINT EVS 
110 REM LA LISTE DES EVENEMENTS ET LA LI 470 PRINT 
STE DES PERSONNAGES 480 FRINT 
120 REM 27/2/83 R.FELTIER 490 FRINT 
120 DATS "LA PRISE DE LA BASTILLE",1789, So PRINT "VOUS DEVREZ" 
"L'INVENTION DE LA PHOTO SUR VERRE F8R 510 PRINT “lo TROUVER L£ DATE EXACTE 
N.NIEPCE",1825,"LA CONSTITUTION DES ETA E CET EVENEMENT" 
TS UNIS DU BRESIL",1897 520 PRINT "Zo RENCONTRER à CETTE DATE 
145 DATA "LA PROJECTION DU PREMIER FILM LU MOINS UN FERSONNAGE DONT VOICI LA 
FARLANT",1927,"LA PREMIERE REPRESENTATI Œ » 
ON PUBLIQUE DU CINEMATOGRAFHE LUMNIE S3@ PRINT 
RE", 1895 S40 FOR DEL=1 TO 45û 
150 DATA "LA FARUTION DU FREMIER TOME DU S5û NEXT DEL 
CAFITAL",1847,"L8 PRISE DU FOUVOIR FAR 560 GOSUE 1480 
HENITO MUSSOLINI",1925,"LA NGISSANCE DE 570 PRINT 
À. HITLER", 1889 590 FRINT "TENTEZ DE MARGUER LE MAXIMUM 
16G DATA "LA MORT DE LENINE”", 1924 DE FOINTS 3 MAIS ATTENTION : UN CONTRAT 
1706 DATA "LA FÉRUTION OÙ MONIFESTE DU FA  ELEVE NE VOUS AUTORISE QUE FEU D ERFREUR 
RTI COMMUNISTE",1848,"LS BATAILLE D'HERN GS" 
BNI",1870,"LA PUBLICATION DU CONTRAT  S  S90 PRINT "FAR EXEMPLE FOUR UN CONTRAT D 
OCIAL",1762 E 10 FOINTS VOUS N°AVEZ DROIT QU'A 
180 DATA "LS FROCLAMATION DE L INDEFEN-D ERREURS" 
ANCE DES U.S.4.",1776,"LA COMMUNE DE FAR 4600 INPUT "COMBIEN DE FOINTS VOULEZ y 
15,1871,"LA BOTSILLE DE WATERLOO",1815  QUS TENTER (DE 16 10)":T 
190 DATA "LA FONDATION DU JOURNSL L° HU 410 FRINT "O.K. VOUS AVEZ DROIT A"3 (17-T 
MANITE",1904,"LA MORT DE MOLIERE",1873,"  )s "ERREURS 
Lé MORT DE MAZGRIN", 1661 L20 FOR DEL=1 10 450 
- 200 DATA "LS CESSION DE LA SAVOIE ET DE 4:06 NEXT DEL 
NICE",1840,"LA DECOUVERTE DE LA FENICIL 640 PRINT " GUELLE EST LA DATE DE ":EVS# 
LINE",1929 85 INPUT W 
210 DATA “ ",0 660 FRINT 
220 CALL CLEAR 670 FRINT 
230 CALL SCREEN(4) 680 FOR H=i TO L 
240 FRINT “ RETROUVEZ L'ANCETRE" 6490 NEXT M 
250 FRINT " 700 IF DEW THEN 710 ELSE 870 
260 PRINT 719 FRINT "NON, CELA S EST FASSE FLUS" 
270 PRINT 720 IF DiW THEN 730 ELSE 760 
280 FRINT 730 FRINT "TARD" 
290 PRINT 740 LET DIF=D-W 
OU FOR DEL=1i T0 800 750 IF DIF£5 THEN 790 ELSE 810 
NEXT DEL 76 FRINT "TOT" 
à CALL CLEAR 770 LET DOF=W-D 
330 CALL SCREEN(11) 790 IF DOF“S THEN 790 ELSE 810 
F4û F=48 790 FRINT "MAIS ADMETTONS...VOUS N EN E 
350 DEF TOTFENG=F-48 TES F8S LOIN. Lâ DATE EXACT 
à CALL COLOR (4, 16,7) E EST" 
CALL COLOR(S, 16,7) 800 GOTO 880 
PRINT "JE VOUS PROPOSE DE REMONTER L 10 IF T+TOTFENA:10 THEN 1520 ELSE 820 
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870 FRINT "ESSAYEZ ENCORE" 


850 F=F+1 
840 CALL HCHBR (3, 30,P) 
850 RESTORE 


GOTO 640 
FRINT "EXACT" 

CALL HCHBR(S, 30,F) 
PRINT 

PRINT 

FOR DELAI=1 TO 1000 
NEXT DELAI 


g60 
876 
ggû 
890 
SC 
si 
SE 


930 DATE=D 

940 CALL CLEAR 
950 CALL SCREEN (6) 
960 PRINT 


970 
980 
go 


FRINT TAR(10)35DATE 
FRINT 
PRINT SEGS$(EVS, 5,40) 
FRINT 
FRINT 
FOR DELAI=I 
NEXT DELAI 
FRINT 
FRTNT 
FRIAT 
1080 PRINT "JE VOUS RAPFELLE LA LISTE 
DES FERSONNAGES”" 
1090 GOSUB 1680 
1100 FRINT "QUEL FERSONNAGE VOULEZ-VOUS 
RENCONTRER 8 CETTE DATE © 
1110 INPUT 4$ 
1120 RESTORE 1610 
1150 READ FARS,DEE,FIN 
1140 IF FARS="FIN" THEN 1150 ELSE 
1150 RESTORE 1610 
1160 FRINT "JE NE CONNAIS FAS CE "358 
1170 GOTO 1080 
1180 IF G$=FARS THEN 1190 ELSE 1130 
11906 NSDEE 
1200 MEFIN 
1710 IF DATESN THEN 1220 ELSE 128 
1220 FKINT 
1230 FRINT "DESOLE MAIS VOUS NE FOUVEZ 
PAS ENCORE RENCONTRER" 
1240 FRINT À$ 
1250 FRINT "QUI 
1269 F=F+1 
1370 IF T+TOTPENA:10 THEN 1535 ELSE 1640 
1780 IF DATE®M THEN 1290 ELSE 13550 
1290 FRINT 
1300 FRINT "DESQOLE MAIS VOUS NE POUVEZ 
PLUS RENCONTRER" 
1510 FRINT À$ 
320 FRINT "QUI EST MORT EN "3" 
F=F+1 
IF T+TOTFENA:10 THEN 1520 ELSE 1040 
X=DATE-N 
PRINT 


LOGO 
1010 
1020 
1030 
1540 
1050 
1iét 


1070 


10 306 


HCHAR (3, 30, F) 


1180 


4# 


NAITRA EN "SA 


1530 
1340 
1350 


1360 
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1570 PRINT À& 

1380 PRINT "A CETTE ANNEE" 

1590 FRINT % 

1400 PRINT "ANS" 

1410 FOR DELAI=1 TO 500 

1420 NEXT DELAI 

1430 CALL HCHAR(S, 50,F) 

1440 FOR DELSI=1 TO 2000 

1450 NEXT DELAI 

1480 FRINT "PENALITE®":TOTPENA 

1470 IF T+TOTFENA:11 THEN 1480 ELSE 1520 
1480 FRINT "VOUS AVEZ REMPLI VOTRE CONTR 
AT. VOUS MARQUEZ 

1460 PRINT T 

15060 FRINT "POINTS" 
1510 GOTD 1550 

1520 PRINT "VOUS N AVEZ 
CONTRAT VOUS FERDEZ 1 
1530 FOR DELAI=I TO 900 
3 NEXT DELAI 


FAS REMPLI VOTRE 


POINTS" 


1550 CALL CLEBR 

1560 CALL SCREEN (16) 

1570 INPUT "VOULEZ VOUS UNE AUTRE PARTIE 
(O/N)":0$ 


IF Q$="0" THEN 320 ELSE 1590 
0 FRINT "OK. SALUT" 
09 STOF 
1410 DATA "VOLTAIRE", 1694, 1778, "CLEMENCE 
AU",1841,1929, "LOUIS XVI",1754, 1793 
1670 DATA "FPORMENTIER", 1737, 1813, "ZEPFEL 
IN",1828,1917, "WASHINGTON", 1732, 1799, "WA 
GNER", 1813, 1883 
1630 DATS "BEETHOVEN", 1770, 1897, "LENINE" 
.1870,1927,"LA FAYETTE", 1757, 1854, "MOZAR 
1",1756,1791 
ié40 DATA "CASANOVA", .1798,"ROSA LUX 
EMBOURG", 18970, 1919, "GARTRE", 1905, 1980, "E 


1775 
de À dede 


LR 


INSTEIN", 1879, 1955, "VICTORIA lo",1818,19 
5 41,1691, "CORNEILLE 
", 1606,1684,"LA FONTAINE", 1621, 1695, "HEM 

_. 


NGWAY",1899,1961, "CATHERINE 11",1729,17 


# 


7487 
ARE 


IN 

96 

iééo DATA "VAUBAN", 1633, 

1670 DATA "FIN",0,0 

| CLEMENCEAU 
ZEFPELIN 


680 FRINT "UOLTAIRE 
LOUIS XVI FARMENTIER 
HÉSHTINGTON * 

1490 PRINT "HAGNER 
LENTNE L& FAVETTE 
CÉSANOVE $ 

1700 FRINT "SARTRE 
VICTORIS Io LOUVOIS 

LA FONTAINE ï 

17106 FRINT "HEMINGWAY 
VBUBSN" 

1720 FOR DElL=i 
1720 NEXT GEL 
1740 RETURN 


BEETHGVENR 
MOZBRT 


EINSTEIN 
CORNEILLE 


CATHERINE IT 


T0 600 
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Gestion Personnelle de Fichiers 


Didier Bicking 


La Gestion Personnelle de Fichiers 
est un module commercialisé par 
Texas Instruments pour le TI-99,. 
Comme son nom l'indique, son ob- 
jectif est de vous permettre de consti- 
tuer, analyser et conserver des fi- 
chiers d’une taille limitée, adaptée 
aux besoins domestiques. Je me suis 
procuré ce module et je l'ai testé 
pour vous. 


Lorsque le système se met en roùte, 
la première chose qui est demandée 
est la date. Toutes les opérations sur 
les fichiers seront datées, du moins 
sur les listings que je pourrai en faire. 
Il ne sera par exemple pas possible, 
sans manipulation, de récupérer un 
fichier donné tel qu'il se présentait à 
une date déterminée sauf si on a pris 
le soin de le sauvegarder dans ce but 
à cette date. 


Le programme demande ensuite si je 
dispose d’une imprimante. Je ré- 
ponds positivement et indique le 
nom de mon imprimante : *’PIO”. Le 
programme prévoit, outre les impres- 
sions normales d’éléments du fichier, 
la recopie sur imprimante de certains 
écrans. Nous verrons cela plus loin, 
mais remarquons à l'avance cet im- 
DE détail qui peut se révéler très 
utile. 


Afin de faire un test le plus complet 
possible, j'ai constitué successivement 
deux fichiers différents. 


Les joueurs d’un club de 
tennis 


Le premier travail consiste bien en- 
tendu à définir la structure de mon 
fichier. Chaque article” du fichier 
est une page contenant un certain 
nombre d'éléments ayant chacun 
leurs caractéristiques propres. Je me 
propose de constituer, pour mon 
club de tennis, un fichier reprenant 
les nom et prénom de chaque 
joueur, accompagnés de son année 
de naissance, son sexe, son classe- 
ment, un indice permettant de savoir 
s’il est à jour de ses cotisations, puis 
deux indices permettant de savoir s’il 
est inscrit d’une part au tournoi in- 
terne du club, d’autre part au tournoi 
’open”. 


J'ai donc défini chacun des éléments 
ainsi que vous pouvez le voir dans le 
tableau : le nom comporte au maxi- 
mum 15 caractères (taille maximale 
admise par le programme), le pré- 
nom est sur huit caractères, etc. (ta- 


bleau 2). La colonne DEC n'est pas 
utilisée ici: ce fichier ne contiendra 
en effet pas de nombres avec des 
décimales. 


Une fois définie et confirmée la struc- 
ture du fichier (le programme en de- 
mande confirmation et autorise des 
rectifications avant l'enregistrement 
définitif), j'ai demandé à revoir cette 
structure. C’est alors que m'ont été 
présentés successivement deux 
écrans qui peuvent être recopiés sur 
l'imprimante (tableaux 1 et 2). Le 
premier d’entre eux comporte une 
information essentielle : je ne pourrai 
constituer que 267 pages. Ce nom- 
bre est déterminé en fonction de la 
structure choisie : si l’on constitue un 
fichier comportant moins d'éléments, 
on disposera d’un plus grand nom- 
bre de pages, et inversement. 


Il faut noter que le module n'utilise 
pas l'extension mémoire de 32K 
dont dispose mon système. D'un 
côté cela est regrettable car le nom- 
bre de pages est finalement peu im- 
portant (dans la réalité, mon club de 
tennis compte 1800 membres...). En 
revanche, cela rend le module de 
Gestion Personnelle de Fichiers ac- 
cessible à ceux qui ne possèdent que 
la version de base du TI-99, c’'est-à- 
dire la console et un cordon de bran- 
chement pour un magnétophone. 


FILE STRUCTURE 
NÔMEs TENNIS 
DATE: 4/39/8685 
HS /FÊGE : 
: USED: 
S LEFT: 


Tableau 1 


FILE STRUCTURE 


ITEH TYPE WIDTH GEC 
NOM CHBK 
FRENO" CHBF 
NAISSANCE INT 
SEXE CHR 
CLASST INT 
COTIS. INT 
TOURNOI 1 INT 
TOURNOI € INT 
Tableau 2 


+ 


tn be PJ F9) ts F3 C0 CH 


î 


JC CN Hs LA F2 


ea 


\Y F8G 
4 
NOM CLARTE 
FRENOH RENAUD 
NAISSANCE 55 
SEXE M 
CLÉSST 15 
COTIS. 
TOURNOT 
8 TOURNOI 
Tableau 3 


La structure du fichier étant détermi- 
née, il m'a fallu remplir une à une les 
pages qui le constituent. Pour me 
simplifier les choses, j'ai fabriqué un 
indice pour les classements : le clas- 
sement le plus fort (-30) est le classe- 
ment O, un joueur classé -15 est noté 
1, etc. jusqu'au pauvre non classé 
que je suis et qui est noté 15. 


SCC bBIATIE 


J’ai ainsi rempli une dizaine de pages 

que j'ai ensuite voulu faire imprimer. 

Un choix à trois possibilités est offert 

par le programme pour les impres- 

sions : 

e impression de chaque page sépa- 
rément 

e impression de toutes les pages 
sous forme d’un tableau 

e impression d'éléments choisis dans 
chaque page, encore sous forme 
d’un tableau. 


À titre d'exemple, j'ai fait imprimer 
une page (tableau 3), puis le fichier 
complet sous forme de tableau (ta- 
bleau 4). 


Le programme permet d'effectuer 
des tris. J'ai demandé, dans un pre- 
mier temps, un tri alphabétique. 
Chaque opération de ce genre est ef- 
fectuée sur un critère et un seul. Or 
mon fichier comporte des personnes 
ayant le même nom. Dans ce cas, le 
programme, comme tous les pro- 
grammes de tri informatique, classe 
les éléments identiques dans l’ordre 
où il les a rencontrés. Pour obtenir 
un classement à la fois sur le nom et 
le prénom, il m'a donc fallu 
commencer par faire un tri sur le 
prénom, puis, immédiatement après, 
le tri sur le nom. On retrouve bien 
ainsi dans le tableau final (tableau 5) 
Anne BLASTE devant Jacques 
BLASTE (les noms sont directement 
issus de mon imagination). 


Il est aussi possible d'isoler certains 
articles du fichier en fonction de cri- 
tères choisis. Il est par exemple aisé 
d'établir la liste de ceux des mem- 
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bres qui ne sont pas à jour de leurs 
cotisations pour l’année 1983 (ta- 
bleau 6). On pourrait aussi faire une 
liste des hommes non classés, etc. 


TENNIS 
5/21/83 
TENNIS 


Dans une liste, on n’a pas toujours 
besoin de tous les éléments que 
comporte chaque page. Le pro- 
gramme permet donc de n’éditer que 
les éléments choisis comme par 
exemple le nom, le prénom et le 
classement (tableau 7). 


L 
a 


FIERRE 
DIDIER 
CAROLINE 
ANNE 
JACQUES 
RENAUD 
J. MÈRE 
MONIQUE 
HEFRNSRD 
ANNICE 


Æ 


Um D 
bi 4 CC 


a] 
FT be ps [T7 
GO À 7% D 
| + 


Pres 
Di 


> DEOO 


OR 


F7 
T: 


= 


Gestion d’un catalogue 


Ce Aer + 
5 +4 9 M 
© 


= CE € 
Es 
+ Ci CN -0 4 CN On + 


ht bob pod 


in (1 


A titre de second exemple, j'ai ima- 
giné le cas d’un commerçant, impor- 
tant des Etats Unis du matériel élec- 


mu 
FTT bi ps 


Ca © 
FT O9 5 M1 1 m1 
C- 


L 
sa 
ren 


n 


tronique. Il paye ses importations en 
dollars. Sur ce prix, il applique son 
coefficient de marge (par exemple 
1.45) pour déterminer un prix de 
vente de base, toujours en dollars. Il 
effectue ensuite la conversion du prix 
de base en francs français. Enfin, il 
établit pour chaque article quatre prix 
de vente finaux correspondant cha- 
cun à une catégorie de client. 


La structure de fichier étant détermi- 
née (tableau 8), il dispose de 173 
pages. Dans un premier temps, il ne 
remplit que les trois premiers élé- 
ments de chaque page, laissant à 
l'ordinateur le soin de calculer les 
autres (tableau 9). Pour cela, il rem- 
plit d’abord toutes les pages de son 
fichier puis demande à effectuer des 
transformations mathématiques. 18 
opérations différentes sont possibles : 
transfert de valeur d’un élément à un 
autre, les quatre opérations de base, 
quelques opérations  trigonométri- 
ques, l'extraction des logarithmes na- 
turels ou décimaux, et même RND 
(le nombre aléatoire) dont on ima- 
gine mal l'utilité dans le cadre d’une 
gestion de fichier. 


L'opération de multiplication se pré- 


ë ML H 
Tableau 6 


sente sous la forme: À =Bx+C. Le 
manipulateur choisit cette opération 
et indique ensuite quel élément est 
A. Le programme demande alors si 
B est une constante. En cas de ré- 
ponse négative il demande quel élé- 
ment est B, sinon il demande la va- 
leur de B. Il en est de même enfin 
pour C. Il est ainsi possible d'établir 
les relations mathématiques qui re- 
lient entre eux les éléments d’une 
même page du fichier. Lorsque cela 
est fait, on lance l'exécution de ces 
transformations, c’est-à-dire que l’or- 
dinateur effectue tous les calculs pour 
chacune des pages du fichier et y 
note les résultats obtenus. 


6% 


Le commerçant peut alors faire éditer 
son catalogue de prix (tableau 10). 
Par la suite, si par exemple le cours 
du dollar change, il n’aura plus qu’à 
modifier en conséquence la relation 
entre le prix de base libellé en dollars 
et celui libellé en francs. Il y a cepen- 
dant là un écueil important du pro- 
gramme : on ne peut modifier isolé- 
ment une relation mathématique. Il 
faut en effet les. modifier toutes ou 
aucune. En réalité, le programme 
considère qu'il n’y a pas de modifica- 
tion, mais que chaque opération 
consiste à établir un nouveau tissu de 
relations et, en conséquence, il an- 
nule toutes les précédentes. J'ai en 


INDEX 
3 = FAGE # 
= NOM 

PRENOM 


> NAISSANCE 


FILE 
DATE: 
TENLES 


= SEXE 
CLASST TENNIS 
COTIS, ATES 97/21/93 


TOURNOI TENNIS 
= TOURNOI 


Li 


(3 CD Un 


“JC ON 


(su 


Î Eu 


pa ps 


s 


“id OO CM Hs LA M} re] 


BLASTE 
MEURISSE 
MICHEL 
HLASTE 
BRNAULT 
CLARTE 
BICEING 
MEURISSE 
BICEING 
NOR 


JACQUES 
J.MARC 
BERNARD 
ANNE 
PIERRE 
RENAUD 
DIDIER 
MONIQUE 
CAROLINE 
ANNICK 11 


j 
ë 
"g2 


sd 


Le pe 


rie 


MEURISSE 
HICHEL 

BLASTE 

CLARTE 

MEURISSE 
ARNAULT 

BICKING 

NOUJA 

BICKING 

ELASTE 


Tableau 4 
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bé pe bu | 
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++ eee 
CN CM + LA O EN Qi 


MONIQUE 
PIERRE 
DIDIER 
ANNICE 
CAROLINE 
BNNE 


Fe 


“M © 

te 

cn 
bu po 
CH + 


es 
res 

n 
M be be be be pet pa Tri 


* «Q 


2-0 
ha re 
LA CH 


Tableau 7 
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conséquence choisi de noter dans 
chaque page un élément supplémen- 
taire : le cours du dollar. 


Les représentants n’auront certes pas 
besoin de connaître la composition 
complète du prix. Le commerçant 
peut alors éditer un catalogue de 
vente (tableau 11) ne comportant 
que les éléments indispensables à 
ceux à qui il est destiné. 


Enfin, il est possible d’établir des sta- 
tistiques sur chacun des éléments nu- 
mériques composant le fichier. Le 
programme lit alors le même élément 
dans toutes les pages. Il en calcule la 
moyenne, l’écart-type, indique quels 
sont les montants maximum et mini- 
mum, la somme, le nombre de pages 
concernées et le nombre de données 
vides rencontrées. Une donnée vide 
est un élément non rempli dans une 
page (tableau 12). 


Conclusion 


La taille des fichiers qu’il est possible 
de constituer et utiliser avec ce pro- 
gramme le destinent effectivement à 
une gestion personnelle, bien que les 
exemples donnés soient orientés vers 
un certain professionalisme. Il n’en 
reste pas moins que ce programme 
est relativement puissant. J’ai notam- 
ment beaucoup apprécié la fonction 
de tri et la lecture statistique du fi- 
chier. 


Il faut noter cependant une certaine 
lenteur, notamment lorsqu'il s’agit 

‘éditer un fichier sous forme de ta- 
bleau. Le tableau 10, par exemple, a 
pris plus de deux minutes (pour dix 
lignes !). Cela provient de ce que le 
programme, à l’origine, a été écrit en 
Basic avant d’être intégré dans un 
module. Il prend le côté pratique du 
module (facilité de chargement), tout 
en gardant la lenteur d'exécution du 
langage Basic. 


L'utilité d'un tel programme est in- 


contestable et on ne peut faire une | 


FILE:  ARTICI 
DATE: 5/71/8535 
TITLE: CATALOGUE DE FRIX 


JAEUBURHelT 





TELE 
HIFI 
CALCUL. 
DISQUES 
CALCUL. 
HIFI 
MAGNETOS 
MAGNETOS 
PLATINES 
FLATINES 


2 © 


F3 F2 CM EN 4 9 LA SO + ti 
J “3 


FH te JS 


DUR tIr j 


10 
Tableau 10. 


FLE STRUCTURE 
NAME:  SRTICLES 
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S CAT. 
10 COURS #$ 
Tableau 8 


liste exhaustive des applications pos- 
sibles. Citons à titre d'exemple : 


HS . 


ne 

= 

3 4 
ET 00 F0 EP M I M M1 
F2 PER CPS ES 1 Fi 


= 
CH € 


ë 


® gestion d’une bibliothèque person- 
nelle et des prêts de livres 

e gestion d’une cave à vin 
annuaire personnel 

e fichier de notes et moyennes pour 


un enseignant 
FILE: ARTICLES 
DATE: g 
TITLE: CATALOGUE DE VENTE 





TELE 
HIFI 
CALCUL. 
DISQUES 
CALCUL. 
HIFI 
MÉGNETOS 
MÉGNETOS 
PLATINES 
19 PLATINES 


Tableau 11 
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DISPLAY PAGE 
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BRTICLE TELE 
REFER 204875 
IMPORT $ Zi, oi 
EBSE # 

BSSE FF 

CAT. 

CAT. 

CBT.E 

CAT.4 

COURS $ 


Tableau 9 





BASE FF 
MEAN 1424. 6061 
DEV = 924.9194405 
VAL = 2827.55 

VAL = 85.96 

SUM = 14740.461 
PAT 19 

MISSING = î 


ITEM 


STD 
MAX 
MIN 


Tableau 12 


toutes sortes de fichiers scientifi- 
ques et statistiques 

inventaire domestique, avec actua- 
lisation de la valeur des objets 
gestion et évaluation de stocks 
établissement de bulletins de paye 
fichier des records dans un club 
sportif 

elc... 
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L’instruction CALL KEY permet 
d'appeler un son à partir d’une tou- 
che du clavier. Nous l’avons utilisée 
pour transformer votre TI-99 en un 
instrument de musique; les notes, sur 
le clavier de la console, se présentent 
comme sur un piano : 


W E T Y U 
A S D FF G H dJ K 
do ré mi fa si la si do 


Le clavier de cet instrument 
comporte les notes d’une octave, 
plus la première note de l’octave sui- 
vante, ce qui n’est pas suffisant pour 
jouer la plupart des notes de musi- 
que. Aussi avons-nous ajouté la pos- 
sibilité de changer d’octave : il est 
possible de choisir cinq octaves en 
appuyant sur les touches 1, 2, 3, 4 
ou 5. 

Le timbre de cet instrument s’appa- 
rente plus à celui d’un harmonium 
qu'à celui du piano, d’où le titre de 
cet article. Autant le dire tout de 
suite, au risque de décevoir certains : 
cet harmonium n’a aucunement la 
prétention d’égaler un véritable ins- 
trument de musique. 


Pour le réaliser, nous allons procéder 

par étapes : 

— la première partie, la plus impor- 
tante, traite de la production des 
notes ; 
la seconde partie permet de ”’meu- 
bler”’ l'écran : le clavier de l’instru- 
ment est dessiné et un index pré- 
cise l’octave choisie ; 
dans la troisième et dernière par- 
tie, le nom de l'instrument est affi- 
ché et un petit pavé clignotant in- 
dique la touche pressée. 


Première partie : 
production des notes 


Les féquences des 13 notes de base, 
N(1) à N(13), sont définies par la 
boucle FOR...NEXT des lignes 1010 
à 1030. 


La fréquence du LA(1) (situé deux 
octaves au-dessous du LA(3) de fré- 
quence 440 Hz), égale à 110 Hz sert 
de référence. Les fréquences de 
deux notes distantes d’un demi-ton 
étant dans le rapport 2A(1/12), la 
fréquence de la première note (I=1), 
qui est à trois demi-tons (I+2 
—1+2=3) au-dessus du LA(1), est 
donc 110x2/\(3/12); celle de la note 
située à n demi-tons au-dessus du 
LA(1) (n=I+2) est 110x2/\(n/12). 
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47 Quand le TI 


À la ligne 1070, les fréquences des 
notes de l’octave de rang J (1, 2, 3, 
4 ou 5) sont obtenues en multipliant 
celles des notes de base: N{Il) par 
2A(J—-1), soit par : 
2A(1-1)}=2A0=1 pour la première 
octave (J=1) 

2A(2-1)=2A1=2 pour la seconde 
octave (J=2) 

2A(3-1)=2A2=4 pour la troisième 
octave (J=3) 

2A(4-1)=2A3=8 pour la quatrième 
octave (J=4) 
2A(5-1)}=2A4=16 pour la 
quième octave (J=5). 


cin- 


Les valeurs entières F1(I.J) des fré- 
quences obtenues sont mises en mé- 
moire dans un tableau à deux di- 
mensions. La ligne 1080 donne 
F2(LJ), harmonique de fréquence 
double de F1(I,J); le son obtenu par 
le mélange des deux fréquences a un 
timbre plus agréable que celui ob- 
tenu avec F1(LJ) seule. L’instruction 
CALL SOUND de la ligne 1090 per- 
met d’entendre les notes lors de leur 
mise en mémoire. L'accord de la 
ligne 1150 signale la fin de cette 
mise en mémoire. 


Vous vous posez peut-être la ques- 
tion : pourquoi ne pas utiliser, pour 
les notes de base, les fréquences 
données par les tables (131 Hz, 139 
Hz, 247 Hz, 262 Hz), plutôt que la 
formule complexe de la ligne 1020 ? 
La raison est la suivante : les valeurs 
des fréquences données par les 
tables sont arrondies et, pour certai- 
nes d’entre elles, quand on les multi- 
plie par 8 et surtout par 16 (octaves 
4 et 5), l'écart avec la valeur précise 
de la fréquence est sensible à une 
oreille moyennement exercée, et 
l'instrument joue faux” ! 


L'instruction CALL KEY de la ligne 

1220 permet : 

— de choisir l’octave (lignes 1770 à 
1960). Exemple : si on appuie sur 
la touche ”’1” (code ASCII 49), 
loctave 1 est sélectionnée... 

— d'appeler une note en appuyant 
sur une touche déterminée (lignes 
1240 à 1750). Exemple, si on ap- 
puve sur la touche A” (code 
ASCII 65), la note DO (I=1) est 
jouée... 


Le son de fréquence F1(1J), avec 
son harmonique F2(1J) est généré 
aux lignes 2280 ou 2320. Les ins- 
tructions CALL SOUND des touches 
blanches et des touches noires sont 
séparées afin de permettre ultérieure- 


devient un harmonium 


Gilbert Arribet 


ment (troisième partie) l'indication de 
la touche pressée. Dans ces CALL 
SOUND, la durée négative permet 
d'obtenir un son tenu” si l'appui sur 
la touche persiste; il faut régler la va- 
leur absolue de cette durée à la plus 
faible valeur qui permette d’obtenir 
un son continu quand les touches les 
plus à droite du clavier (U ou K) sont 
maintenues enfoncées (cette valeur 
est ici de 140 millisecondes). 

Une fois cette première partie du 
programme entrée, l’harmonium doit 
fonctionner ; mais, lors de son utilisa- 
tion, on ne sait pas sur quelle touche 
appuyer pour obtenir une note don- 
née. Une première solution consiste- 
rait à coller des étiquettes, portant le 
nom des notes, sur les touches cor- 
respondantes (DO sur A...) Nous 
avons préféré dessiner sur l’écran le 
clavier avec l'indication des touches. 
C’est ce que nous ferons dans la se- 
conde partie. Nous v réaliserons 
aussi une indication de l’octave choi- 
sie, ce qui est indispensable car, dans 
l'état actuel de l'instrument, rien ne 
permet de le savoir. 


Seconde partie : 
dessin du clavier 


Une boucle FOR...NEXT (lignes 630 
à 670) trace les touches noires. L’ins- 
truction IF... THEN de la ligne 640 
permet de ne pas afficher la troi- 
sième touche noire (intervalle d’un 
demi-ton entre MI et FA). 

Le marquage des touches blanches 
(lignes 540 à 610) se fait sans pro- 
blème. Au contraire, celui des tou- 
ches noires, par les lettres W, E, T, Y 
et U, ne peut se faire simplement car 
ces lettres se trouvent à cheval sur 
deux caractères. Il a donc fallu redes- 
siner chacune de ces lettres à l’aide 
de deux caractères (lignes 700 à 
930). 

L'indication d’octave se fait par le 
sous-programme défini aux lignes 
2230 et 2240. 


Troisième partie : 
identification 

de la touche 

Elle se fait par un pavé clignotant 
(celui des touches noires étant défini 
par deux caractères). Conséquence 
de cette indication de la touche pres- 
sée : dans les CALL SOUND des 
lignes 2280 et 2320, la durée de 140 
ms n'est plus suffisante pour obtenir 
un son continu quand on maintient 





. appuvées les touches U ou K : il faut 
donc augmenter cette durée. Par 
exemple : 


Touches 
noires 


Touches 
blanches 


En TI-Basic 
sans le 
module Basic 
étendu 


En TI-Basic 
avec le 
module 


En Basic 
étendu 


190 REX # HARMONIUN s 

110 REN PREMIERE PARTIE 

129 REN AUTEUR: 6. ARRIBET 

136 REX 

15% CALL CLEAR 

S4Q REX MISE EN MEMOIRE DES NOTES 15 0€ 


NOTES D'UNE DCTAVES 
"J's à NUMERCS ds 2CTAY 5 
979 REX H(II®: FREQUENCES 
PREMIERE CCTÈVE 
EG REM “FAIT Jl°: FREQUENC 
DE L'OCTAVE J® 
990 REN “F2{1,9)": HARMONIQUE 2 DE "FLiT,d}" 
1006 DIM NUIT), FL(13,51,F2(13,5) 
1010 FOR 1=1 10 13 
1629 NETi={{0e(2t{it42)/123) 
1630 ENT I 
1e FER Jef TO 5 


ES NOTES DE LA 


E DE LA NOTE "", 


170 D FU DsINT NID E2* 1-1) 

1080 F241,41224F1 (1,4) 

1090 CALL SOUND{S0,F4(1,91,2,F241, 01,6) 
1100 NEXT ! 

1110 FOR T=1 T9 200 

1120 MENT T 

1430 MEXT J 

LLAG REN FIN DE LA AISE EN HEMDIRE 

1130 Eau SOUND (2000, 242, 19,330, 10,392, 1 
1180 g=1 

1200 RE L'HARMONIUN EST PRET À JOUER 
1219 BEN APPEL DE LA NOTE (TOUCHES A,H,S,E, 
IAARAR RAS 

1220 CALL KEYUS,TH,ET) 

1240 1F THC)6S THEN 1280 

1250 [= 

1270 601Q 2280 

1280 IF THCA7 THEN 1320 

1290 122 


Le passage d'une note à une autre 
se fait donc plus lentement, cette 
augmentation de ’linertie” de l’ins- 
trument peut justifier le non établisse- 
ment ou la suppression de cette indi- 
cation de la touche pressée. 


Nom de l’instrument 


Pour ne pas avoir les caractères A, 
H, I, M, N, O, R et U en noir sur 
fond blanc (couleur des groupes 3 à 
10 définies aux lignes 170 à 190), 
leurs codes ASCII ont été redéfinis 
dans les groupes 1 et 2 non encore 


1316 60T0 2320 

1320 IF THO83 THEN [360 
1330 !=3 

1350 6070 2280 

(386 IF THCHS ! 

1370 [=4 

1390 GOTO 2326 

1400 1F THC:68 THEN 1440 
1410 T=5 

{430 60TO 2280 

1440 IF TH£270 THEN 1489 
1456 = 

1479 GOT 2280 

1480 IF THC?84 THEN 1520 
1490 27 

1516 6010 2520 

1520 IF THG71 THEN 1560 
1530 1=8 

{350 60TO 2280 

1560 ÏF TH289 THEN [600 
1570 1=9 

1590 G60TO 2326 

1600 IF TH£272 THEN 1640 
1810 F0 


{40 IF THOES THEN 1680 
185û I=11 

1870 6070 2320 

1880 IF THC274 THEN 1720 
1690 1=17 

1716 60TO 2240 

1720 IF THOSE THEN 1770 
1759 Es1S 

{750 60TO 2280 

1760 REX CHOIX DE L'OCTAVE (9=1,2,3,4,5) 
1770 IF THC>49 THEN 1819 
178û if 

1806 6070 1220 

1810 IF THO)50 THEN 185û 
1826 1=2 

1840 6070 1220 

1850 IF THCS1 THEN 1990 
188û J=3 

1885 60TQ 1220 

1890 IF TH()52 THEN 1930 


utilisés. Les couleurs de caractères de 
ces groupes sont définies aux lignes 
2090 et 2100. 


L'affichage des caractères peut se 
faire par une boucle FOR...NEXT ; 
remplacer à cet effet les lignes 2120 
à 2300 par : 


2120 DATA 2, 18, 40, 3, 19, 35, 3, 
21, 36, 3, 23, 37, 4, 20, 41 

2125 DATA 4, 22, 42, 4, 24, 43,5, 
25, 38, 6, 26, 44 

2130 FOR K= 1 TO9 

2140 READ Y,X,CH 

2150 CALL HCHAR(Y,X,CH) 

2160 NEXT K 


1900 J=4 


1330 F OS THEN 1220 
1940 d=5 


g4G BOTO 1220 
à REM OBTENTION DU SON 

10 REM TOUCHES BLANCHES 

280 CALL SOUNDI-H40,F4HE,0),2,F241,0),8) 


2H REX TOUCHES NOIRES 

2320 CALL SOUNDI-140,F441,0),2,F2( 1) 6) 

250 GOTO 1220 

s REM 

£û REM COPYRIGHT 99 MACATINE 

70 REM ET L'AUTEUR 

8 REX 

90 REM 

100 REM + HARMONIUN # 

110 REM SECONDE PARTIE 

120 REN AUTEUR: 6. ARRIBET 

130 RE 

140 CALL SCREENIS) 

150 CALL CLEBR 

140 REM COULEUR DES CARACT 
HES BLANCHES ET NOIRES 

à FOR 6=3 19 10 

CALL COLORIS, 2, 1) 

0 MENT 6 

ÇA 


ERES: OCTAVES, TOUL 


D 


Z æ 
LA > «D <= 


EX 
EN COULEUR DE L'INDEX D'OCTAYE {*) 
LL COLOR(11,9,8) 
80 REM DEFINITION DE CARACTERES: 
m0 REN INDEX D'OCTAVE *** (REDEFINITION DU 
CODE ASCII DE ss) 
289 CALL CHBRII12, "0000102844") 
340 REN AFFICHAGE DE L'ECRAN (LIGNES 340 À 9 
_ 


0 


LS 9 mes me 


ES S 


380 REN NUMEROS DES OCTAVES 
390 FOR J=1 TO 5 
400 CALL HCHARIS, 2428], 4841} 
#10 NEXT J 
20 REN TRACE DES TOUCHES BLANCHES 
439 CALL CHAR(97,"") 
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440 CALL CHAR(9B, "B080BOROBOBOBORO"} 
450 CALL CHBR(99 *FFFFFFFFFFFEFFFE") 
440 FOR K=5 TO 27 
470 CALL VCHBR(1O,K, 97, 12) 
480 HEXT K 
490 CALL VEHARE17, 28, 97,5) 
S0û FOR K=8 T0 26 STEP 3 
S19 CALL VCHAR(1O,K, 98, 12) 
520 MENT K 
520 REM MERQUAGE DES TOUCHES BLANCHES (2,5, 
AAA RAS 
540 CALL HCHAR(19,8,85) 
560 CALL HCHBR(19,9,83) 
560 CALL HCHARE19, 12,88) 
570 CALL HOHBRI19, 15,70) 
so CALL HCHAR(19, 18,71) 
590 CALL HCHAR(19, 21,72) 
80 CALL HCHAR(19, 24,78) 
819 CALL HEHBR(EO, 7,75 
620 REM TRACE DES TOUCHES NOIRES 
430 FOR K=7 T0 22 STEP 3 
&40 IF K=13 THEN 670 
£5Q CALL VOHBREAO,K, 99,7) 
Bo CALE VOHARLAO,K41,99, 71 
616 NET E | 
630 REX MARQUAGE D DES 
ll 
b90 REM CARACTERE “4° 
700 CALL CHAR(100, "EDELERESESESEZE"| 
710 CALE CHARLLO!, "OFAFAFAFAFAFBFOF") 
720 CALL HOHARE1A,7, 100) 
730 CALL HOHARUIA,8, 101) 
740 REM CARACTERE *E" 
750 CALL CHAR(107,ECETEAETETEAETE") 
740 CALL CHARCI0S, *OFCFOFOFOFOFCFOF") 
710 CALL HCHARE14, 10, 102) 
780 CALL HCHBRIL4, 11,103) 
790 REM CARACTERE “T° 
800 CALL CHAR(1O4,"EUEZELEIELELEE") 
810 CALL CHAR(LOS, "OFCFOFOFOFOFOFOF "| 
820 CALL HCHARELA, 1, 108) 
820 CALL HOHARI14,17, 105) 
84ÿ REM CARACTERE "Y° 
850 CALL CHAR(LOS,"EOEMEAEZELELELE") 
80 CALL CHAR(107, *OFAFAFSFOFOFOFOF") 
870 CALL HCHARI14,19, 106) 
880 CELL HCHAR(14,20, 107) 
890 REM CARACTERE "U' 
900 CALL CHAR(108,"ELEAEMEAELEE TE") 
919 CALL CHARE1O9, "OFAFAFAFAFAFBFOF*] 
920 CALL HCHAREL4, 22, 108) 
930 CALL HCHARE4, 23, 109) 
1050 BOSUR 2230 
1170 BOSUB 2230 
1790 BOSUB 2230 
1830 GOSUB 2230 
1870 GOSUB 2230 
1910 BOSUB 2230 
1950 BOSUB 2230 


5 NOIRES BE,T,Ÿ 
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2220 REX INDICATION DE L'OCTAVE: POSITION DE 
L'INDEX (} 

2230 CALL HCHAR(E,2,32,12) 

2240 CALL HCHAR(E, 24289, 112] 

2250 RETURN 


BG REM COPYRIGHT 99 MAGAZINE 
70 REM ET L'AUTEUR 

RQ REM =============2222=222=7 
90 REN 

{où RE # HARHONIUM # 

110 REM TACISIENE PARTIE 
120 REM AUTEUR: 6. BRRIBET 
139 RE 

pri sa COULEUR DU 
230 CALL COLORLL2,A,2 

240 REH COULEUR DU PAVE CLIGNOTANT SUR LES T 
QUCHES BLANCHES 

250 CALL COLOR(IS,9, 16) 

290 REM PAUE CLIGNOTONT SUR LES 
ES 

300 CALL CHÉR(120, "00000000030303637} 

310 CAbl CHAR (121, "60000000COCOCOC"} 

320 REN PAVE CLIGNOTANT SUR LES TOUCHES BLAN 
CHES 

330 CALL CRAR(128, "000038397838") 

3eû REM NON DE L'INSTRUMENT: °HARMONIUX® 

370 6070 1986 

1186 X1=6 

1190 Y2=7 

1230 G0TO 2370 

1240 1<6 

1300 X227 

1340 11=9 

1380 12-10 

1420 11:42 

148g 1215 

1500 12214 

igëf Xi=18 

1580 {2219 

1826 11221 

1660 12-22 

1700 Y1224 

1740 Y1=27 

1970 REN AFFICHAGE DU NON DE L'INSTRUMENT: " 
HARMONIUX" 

{980 REX REDEFINITION DES CODES ASC 
RACTERES A,H,I,MN,O,R,L 

199û CALL CHAR(3S, "003844447C444444"] 
2609 CALL CHAR(S6,"O044LCS454444444") 
2010 CALL CHAR(S7, "O04464645#4CAC44") 
2920 CALL CHBR(38,"O044444444444479") 
2030 C8LL CHAR(40, *004444447C444444") 
2040 CALL CHBR(A1,"0078444478504844"1 
2050 CALL CHAR (42, "007C44444444447C°) 
2066 C8LL CHAR(AS, *0038101010151038"} 
2070 CALL CHÉR(A4,"O044605454444444") 
2680 REM COULEUR DES CARACTERES 


PAVE CLIGNOTANT SUR LES T 


TOUCHES NOIR 


11 DES CA 













CAL 
} CALL COLUR(Z, 13, 8) 
à REN AFFICHAGE DES CARACTERES 
24 CALL HCHAR(2, 18,40) 
2130 CALL HCHAR(3, 19,35) 
2149 CALL HCHAR(, 21, 34) 
2150 CALL HCHARUS, 23,37) 
2160 CALL HCHAREA, 20,41) 
2470 CALL HCHAR(A, 22,42) 
2180 CALL HCHARUA, 24,43) 
2190 CALL HCHAR(S,25, 38) 
2200 CALL HCHARLE, 26, 44) 
2210 G0TO 390 
2260 REN OBTENTION QU SON ET INDICATION DE L 
& TOUCHE PRESSEE {PAVES}: 
2270 REM TOUCHES BLANCHES 
2290 CALL HCHAR(20, 11, 128) 
2310 REX TOUCHES AUTRES 
2330 CALL HCHAR(15, 2, 129) 
2340 CALL HOHAREAS, 1241, 124) 
2340 REM EFFACEMENT DES PAUES SUR LES 
S BLANCHES ET NOIRES 
2370 C8Ll HEHER (20, X{ 97} 
2380 CALL HCHARILS, X2, 199 2 
2394 SOTG 1746 


SIV JUiIv 


TOUCHE 
















190 REM AUTEUR: E. ARRIBET 





149 CALL SCREER (8) 


150 CALL CLEBR 
180 REM COULEUR DE 
HES BLANCHES ET NO 
170 FOR B=3 10 10 
180 CALL COLORIS, 2, 18) 
190 HET 6 


RACTERES: OCTAVES:TOUC 


5 CAR 
IRES 


200 REM COULEUR DE L'INDEX D'OCTAVE £ 
re 

220 REM COULEUR OU PAVE CLISNOTANT SUR LES T 
QUCHES NOIRES 


230 CALL COLOR113,4,2) 

240 REX COULEUR DU PAVE CLIGNOTANT SUR LES T 
QUEHES BLANCHES 

230 CALL COLOR(13,9,16) 

280 REM DEFINITION DE CRACTERES: 

270 REN INDEX D'OCTAVE *** (REDEFINITION DU 
CODE ASCII DE ***) 

280 CALL CHAR(112, "0000102844"; 

290 REM PAUE CLIGNOTART SUR LES TOUCHES HOIR 
ES 

360 CALL CHÉR(120, "0000000003030305*} 

340 CALL CHAR(121, "O9000000C0C0C0C*} 

320 REN PAVE CLIGNOTANT SUR LES TOUCHES BLAN 
CHES 








10 THEN 1480 


1440 IF THE 


38383938"! 


û 


28, "000 


340 REN AFFICHAGE D 


HAR(1 


DAS 


4 


7 
J 


'ECRAN (LIGNES 


LE 


84 THEN 1529 


«=> 


3,! 


940 REN MISE EN MEMOIRE DES NOTES 


930 CALL ACHAR(I4, 


TAVES 


€ 
ÿ 


{ 


TRUMENT: HÉRADAILM" 


a 
[se 
ts 


ShQ REN NON DE L'IN 


+ 
4 
# 


S80 REM NUMEROS DE 


- 


ES D 


à REN "1": NUREROS DES HOT 


*UME OCTAVE; 


RARES, 2428] ,40+7) 


# 
Le 


400 CALL H 


"N(D*: FREQUENCES DES NOTES DE LA 


PREMIERE OCTAVE 


N3 


870 REN 


Ed 
LE 


419 NENT 
420 REN 


430 CALL CHAR(97,*") 


HCHAR(19, 9,83) 


C 


ALL 


£ 
à CALL K 


ë 


1780 GOSUB 2250 


69 7} 
PER 


10,K44, 


HAR LA, 12, 88) 


BQ CALL HEAR 
L VCHAR 


620 REH TRA 


Le 
p 
“ 


730 


1950 GOSUR 2230 


jF') 


ô 


02} 


780 CALL HCHAR(14, 11,195) 


790 REX CARACTERE ‘T* 


CALL CHÉR(102, "EE 
760 CALL CHBR(103, *OFCFOFOFOFOFCF 


0 CALL HCHAR(AA, 10, 


7 
810 CALL CHARILOS, "OFCFGFOFOFOFOF OF") 


869 CALL CHAR(104,"EGETELEIESEIELE") 
820 CALL HCHAR 


dr: 
ü 


F TH369 THEN 1406 


104} 


14,18, 


f 
H 
\ 


NOH DE L'INSTRUMERT 


830 CALL HCHAR(14,17, 105) 
846 REX CARACTERE “Y" 


Suite page 65 


1400 IF THC268 THEN 1440 


850 CALL CHAR(104, "EOEA4EAEZEIESEIE") 


seul le programme 4 doit être 


ATTENTION 


880 CALL CHAR{107, *OF4FAFSFOFGFOFOF"} 


12 


1430 6070 2280 


1420 K! 


4 
} 
: 


# 
h 
Le 


q 


870 CALL HCHAR (14,19, 


tapé. Les programmes 1, 2 et 3 
sont là à titre d'illustration. 
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Le présent article a pour but d’ame- 
ner le lecteur qui dispose de la confi- 
guration minimale suivante : 

- console TI-99/4A 

- une unité de disquette 

à créer des fichiers de données, au- 
trement qu’en utilisant les modules 
ou programmes commercialisés à cet 
effet par Texas-Instruments, tels que 
"Gestion Personnelle de Fichiers”, 
analysé dans un autre article de 
99”. Notre approche est cependant 
différente. Nous allons successive- 
ment : 

- rechercher une meilleure compré- 
hension du Basic 

- poser des problèmes de gestion de 
l'information auxquels nous apporte- 
rons les solutions que nous pensons 
les plus simples. 


Ces dernières années, le coût du ma- 
tériel a constamment baissé ; de la 
sorte, de plus en plus de personnes 
peuvent disposer de configurations 
relativement importantes pour des 
utilisations familiales ou pour de peti- 
tes applications professionnelles. Le 
prix des programmes n’a cependant 
pas baissé dans des proportions iden- 
tiques. Dans ces conditions, presque 
tous les utilisateurs individuels sont 
amenés à programmer eux-mêmes 
leurs applications. Ils s’aperçoivent 
alors qu’une marge importante existe 
entre le programmeur amateur et 
l'auteur de logiciels professionnels, 
marge que seule une information en- 
core trop rare peut combler. Les ma- 
nuels de base des ordinateurs offrent 
une profusion de détails sur les rudi- 
ments du Basic et ne s'occupent que 
peu des techniques nécessaires à 
l’utilisation rationnelle de disques. 


Nous nous limiterons dans ce qui suit 
à l'exposé des techniques concernant 
les fichiers à accès direct qui consti- 
tuent le principal avantage de la sou- 
plesse d'utilisation des fichiers sur 
disques. Les fichiers séquentiels 
conçus pour être stockés sur casset- 
tes présentent des restrictions impor- 
tantes et ne seront pas développés 
ici. 


Caractéristiques des 
disques 


Structure du disque 


Les disques disponibles sur le mar- 
ché varient par la taille : 
- les disques durs dont on distingue 
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Fichiers en BASIC 


deux catégories : disques fixes et dis- 
ques amovibles ; 

- les disques souples, appelés ”dis- 
quettes”, dont la lecture se fait, 
contrairement aux disques durs, par 
contact direct de la tête magnétique 
avec la surface du disque, ce qui les 
rend sensiblement plus fragiles. Deux 
tailles de disques souples existent ac- 
tuellement : 8 pouces et 5 pouces 
(en ignorant les fractions de 
pouces.….). 


Capacité du disque 


Le TI-99/4A utilise des disques sou- 
ples de 5 pouces 1/4, simple face et 
simple densité. Ces disques sont divi- 
sés en 40 pistes concentriques, cha- 
que piste étant à son tour divisée en 
9 secteurs. Un secteur contient 256 
octets d'informations (un octet est 
formé de huit bits, c’est-à-dire huit 
chiffres binaires O ou 1). 

La quantité d'informations que peut 
stocker un disque est donc approxi- 
mativement de 90K (1K = 1024 
octets. Si l’on utilise un TI-99/4A en 
configuration maximale (48K de mé- 
moire et deux unités de disques), on 
dispose en fait de 138K ‘en ligne”, 
soit une configuration tout à fait per- 
formante. Rappelons cependant que 
les disques durs stockent en général 
cinq millions d’octets (ou 10, ou 
20,::Y1 


Système de gestion de dis- 
ques (DOS : Disk Operating 
System) 


Le DOS est un ensemble d’instruc- 
tions qui agit tantôt comme un lan- 
gage interprété, tantôt comme 
complément au Basic. Ses fonctions 
essentielles permettent d'initialiser un 
disque, de copier des disques entre 
eux ou d'établir le catalogue d’un 
disque, c’est-à-dire la liste des fichiers 
qui y sont contenus avec indication 
de leur nature. 


Sans entrer dans des détails techni- 
ques, nous pouvons signaler que le 
DOS dispose un répertoire au début 
du disque. Lorsqu'un fichier doit être 
stocké sur le disque, le DOS met ce 
répertoire à jour en y incorporant le 
nom, la taille et le type du fichier 
ainsi que l'adresse du début de la 
zone du disque dans laquelle il sera 
stocké. 


Simon Tchek 


L'initialisation d’un disque est une 
opération indispensable : elle consiste 
à formater le disque en pistes et sec- 
teurs compatibles avec le lecteur uti- 
lisé. Un fichier est stocké sur plu- 
sieurs secteurs, chaque secteur 
contenant comme dernière informa- 
tion l'adresse du secteur suivant pour 
le même fichier. Il est ainsi possible 
d'effacer un fichier ancien et d’utiliser 
la place ainsi libérée pour y stocker 
un nouveau fichier, même si celui-ci 
est plus grand que l’ancien. Le DOS 
s'occupe de l’ensemble de ces opéra- 
tions. 


Concepts de base d’un 
fichier 


Le problème consiste à définir un 
objet à partir d’un groupe d’informa- 
tions en vue de l’accomplissement 
d’une tâche. Ce groupe d’informa- 
tions constitue les champs” de cha- 
que enregistrement du fichier (on 
peut dire aussi les rubriques, les 
items, les articles, etc..). Chaque fi- 
chier qui sera constitué aura sa pro- 
pre structure, c’est-à-dire que chacun 
des enregistrements d’un fichier 
donné comporte toujours le même 
nombre de rubriques. 


Par exemple, un fichier constitué en 
vue de la recherche d’un logement 
va repérer les logements visités par 
rapport au nombre de pièces, nom- 
bre de salles de bains, superficie en 
mètres carrés, quartier, montant du 
loyer et des charges. 

En tant que locataire, l’agence à la- 
quelle vous avez confié cette recher- 
che s'intéresse à votre personne par 
rapport aux données : nom, prénom, 
âge au moment de la recherche, pro- 
fession, revenu, etc. 

Un professeur pourra repérer ses 
élèves par leurs nom, prénom, note 
1, note 2,.., moyenne, etc... 

Dernier exemple enfin : le classement 
des livres de votre biliothèque per- 
sonnelle : titre, auteur, date de publi- 
cation, date d'acquisition, éditeur, 
nombre de pages, catégorie (roman, 
documentation scientifique, etc...), 
prix Eu langue (français, anglais, 
etc... 


Ceci nous conduit à la définition sui- 
vante: Un enregistrement est un 
groupe d'informations caractérisant 
une entité. 

Chaque entité du fichier est en effet 
composée d'une série d’informa- 





tions : certaines caractérisent le loge- 
ment, la personne, l'élève ou le livre. 
L'enregistrement peut alors être di- 
visé en sous-groupes irréductibles, 
d'où une nouvelle définition: le 
champ (rubrique, item, article, élé- 
ment.) est une partie irréductible 
d’un enregistrement caractérisant une 
entité. 

L'enregistrement Logement, par 
exemple, comporte 6 champs; l’enre- 
gistrement Personne comporte 5 
champs, etc. 


Plusieurs enregistrements peuvent 
comporter des champs identiques. 
Par exemple, deux appartements 
peuvent être situés dans le même 
quartier. Certains champs, en revan- 
che, suffisent à caractériser un enre- 
gistrement par rapport à tous les 
autres enregistrements du même fi- 
chier. 

On repérera par exemple un livre 
dans la bibliothèque en l'identifiant 
par son titre : il n’V a pas deux livres 
qui ont le même titre si l’on consi- 
dère comme une seule unité un livre 
en plusieurs tomes. En revanche, on 
peut posséder plusieurs livres du 
même auteur. 


Types de champs 


Un fichier peut comporter plusieurs 
types de champs : 

- les champs numériques contiennent 
des nombres qui pourront faire l’ob- 
jet de calculs ; 

- les champs  alphanumériques 
comportent toutes sortes de caractè- 
res. Si des nombres y sont inscrits, il 
ne pourront pas être directement uti- 
lisés pour des calculs. 

Les champs numériques peuvent 
aussi être distingués les uns des 
autres selon qu'ils contiennent des 
nombres entiers, des nombres déci- 
maux, des nombres en notation 
scientifique ou des dates. 

Les champs alphanumériques, quant 
à eux, sont définis par leur longueur 
maximale autorisée. 


&5 REM COFYRIGET 99 MÉGEZ 
70 REM ET SIMON TCHEK 

8 REM 

90 REH 

100 REM 


119 REM ===MODULE PRINCIFAL 


112 REM 
113 REM 
114 REM 
FHA+1 RUBRIQUE 
120 CALL CLEAR 
130 F$= "NOTES" 


=z=ACCES DIRECT 


140 OPEN #25 "DSKI."RFS, RELATIVE ZSO1,INTE 


==300 FICHES {1-30 
===f ICHE: 1RUBRIQUE 
NUMERIQUE 


Deux types essentiels d'organisation 
des fichiers peuvent être utilisés : 


- les fichiers à accès séquentiel : tous 
les enregistrements y sont rangés 
dans un ordre déterminé. C'est par 
exemple le cas de tous les fichiers 
rangés sur bandes magnétiques; 

- les fichiers dits à accès aléatoire, ce 
qui ne signifie pas que l’on accède 
aux informations par hasard, mais 
seulement qu’elles y sont rangées 
sans ordre défini. Cela est très sou- 
vent le cas des fichiers rangés sur dis- 
ques où un index permet d'accéder 
directement à l'information recher- 
chée. Nous parlerons donc plutôt de 
fichiers à accès direct. 


les clés 


Cela nous conduit à définir le 
concept de clé: une clé est un 
contenu de champ permettant de re- 
trouver dans un fichier donné un ou 
plusieurs enregistrements comportant 
un champ de contenu identique. 
Ainsi : 

- une clé primaire permet de sélec- 
tionner rapidement un enregistre- 
ment; en général, une clé primaire 
effectue cette sélection sans ambi- 
guïté,; 

- une clé secondaire permet de sélec- 
tionner un enregistrement plus lente- 
ment, en général parce qu’elle réalise 
la recherche sur le support magnéti- 
que. 


Un bon exemple de clé primaire est 


celui du numéro d’enregistrement :' 


chaque enregistrement dans un fi- 
chier comporte un numéro différent 
de celui des autres enregistrements 
(si toutefois on a prévu que les enre- 
gistrements soient numérotés). Une 
clé secondaire peut être par exemple 
le nom d’un auteur dans un fichier 
de livres : ces noms seront probable- 
ment sur la disquette et non résidents 
en mémoire. 


* Le programme ci-contre réalise un 


embryon de gestion de fichier: il 


RNAL 


1530 CALL CLERR 


s’agit là de constituer un fichier 
comportant les noms des élèves 
d’une classe et la note qu'ils ont ob- 
tenue sur un devoir donné. Le menu 
de départ conduit vers 6 tâches dis- 
tinctes. Le fichier constitué par ce 
programme est un fichier à accès di- 
rect: les enregistrements v sont 
rangés sans ordre défini. Vous cons- 
tatez à la ligne 1060 que chaque en- 
registrement est numéroté, ce qui 
permettra de le retrouver par la suite 
(interrogation par numéro, lignes 
3000 à 3080). La numérotation choi- 
sie ici progresse de 1 en 1 à chaque 
nouvel enregistrement. On aurait pu, 
éventuellement, faire quelque chose 
de plus compliqué. 


Une fois que le fichier est constitué, il 
est possible d’en obtenir des informa- 
tions globales : moyenne des notes 
des élèves, écart-type, détermination 
de la note la plus haute ou la plus 
basse, etc. Nous avons même prévu 
un module dans ce programme per- 
mettant de faire un histogramme. 
Nous obtenons ainsi une représenta- 
tion graphique des valeurs numéri- 
ques insérées dans les enregistre- 
ments du fichier (lignes 8000 à 
10070). 


Conclusion 


Il ne s’agit ici évidemment que d’un 
programme de démonstration qui 
réalise la gestion d’un fichier particu- 
lièrement simple. Cependant, il illus- 
tre à notre avis très bien ce que peut 
être une gestion de fichier. La consti- 
tution d’un fichier plus complexe ne 
revient finalement qu’à ajouter des 
rubriques à chaque enregistrement. 
En revanche, des différences impor- 
tantes peuvent être apportées dans 
l'exploitation du fichier. On peut en 
effet prévoir des tâches plus compli- 
quées qu’un simple calcul de 
moyenne et d'’écart-type. C’est en 
fait cela qui est le plus ardu dans les 
programmes de gestion de fichiers. 


16 FRINT "GESTION DL FICHIER: UERFS 


170 PRINT : 
190 FRINT 
à PRINT 


FRINT 
PRINT 
} FRINT 

FRINT 
FRINT 





Q PRINT 


5 "1=CREATION" 
s"2=LECTURE OU FICHIER" 
s MIS INTERROGATION (PAR NUMERO: : 


: "A=MODIFICATION D'UNE FICHE: " 

:"S=AJOUT D°'UNE FICHE:" 

: "6=SORTIE DU PROGRAMME: " 
"7=EXPLOITATION:" 


INPUT "VOTRE CHOIX Fi": x 
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81 CLOSE #E 

. 6020 FRINT "TOUTES LES 
ENREGISTREES"3: : 

BEC END 

7000 REM EXPLOITATION DU FICHIER NOTES== 


DONNEES": : "SONT 


7005 
7010 


7020 


CALL CLEAR 
FRINT MI=MOYENNE ET 
PRINT 
FRINT MOSUSLEURS EXTREMES" 
PRINT 
PRINT 
FRINT 
FRINT 
FRINT 
FRINT MUOTRE CHOIX?" 
INEUT ŸY 
IF Y=4 THEN 180 
DIM &CZGG) 
INPUT #S,REC Os TOTAL 
FOR I=i TO TOTAL 
INPUT #S:DS#,4iTi 
MNEXT I 
CALL CLEBR 

35 ON YŸ GOTO 7500, 8000, 8500 

S00 REM CBLCUL DE L MOYENNE ET DE L°SEC 
BRT-TYFE 


ECBRT TYPE" 
FO 
70450 
FE 
75860 
7085 
7087 
7070 
708û 
7087 
7085 
7090 
7100 


7110 


FSSAISTOGRAMME" 


"4=GESTION DU FICHIER" 


n M=S/TOTAL 
D PRINT "MOYENNE=": M 
QG E=SOR(ITETOTAL-S"2)/TOTAL 
D PRINT 
Q FRINT 
PRINT 
PRINT 
PRINT 
PRINT 
FRINT 
FRINT 
FRINT 
FRINT 
FRINT 
7690 PRINT "VOTRE CHOIX?" 
7700 INPUT 727$ 
7710 IF 2Z$="6" 
7720 IF Z$="E" 
IF 2Z$="S" 
GOTO 150 
REM CALCUL DES 


IL TS 
Fbi:0 


7632 
7634 
7840 
7850 
7870 
7680 
7885 
76838 


"ECART-TYPE=":E 


"GEGESTION DU FICHIER" 


THEN 
THEN 
THEN 


150 
7006 
8900 


VALEURS EXTREMES=== 


gGi0 
aie 


BOozû 


840 
Sos 
806 
RG 70 
880 
809 
8100 
8110 
8120 
8150 
8499 


850 


FOR I=1i TO TOTAL 

IF A(I)ESUF THEN 8060 
SUF=R (T) 

IF ACDIHINF THEN 9086 
INF=8 iT) 

NEXT I 

CALL CLESK 

FRINT CAINIMUMEMSINE 
FRINT 

FRINT MBXIMUMES"S SUR 
GOTO 76432 

GOTO 7000 

REM HISTOGRSMME 


DIM H(21) 


d05 FOR I=0 TO 
304 HiTi=û 
3 NEXT 


I 
Q CALL CLEFKR 
1! 


DE ri 
0,3.) 
oon | 7e ane | 
BSZE 


PRINT 
INFUT 
FOR I=S TO 7 


VOS 


5 NEXT I 


2540 
8550 
856 
8579 
85890 

370 
8600 
8810 
Së20 
8835 
Sé4i 
865û 
88652 
8855 
88656 
886 
8685 
8870 
848û 
5890 
8700 
8710 
8720 


FOR I=i TO TOTAL 
X=INT (AI) /Nx20) 
B(X)=H(X)+1 

NEXT I 

SUF=-1 


FOR *X=0 TO ?1 
IF H(X)ESUF THEN 8620 
SUF=E{X) 

IF B(K)2INF THEN 
INF=B{X) 

NEXT X 

CALL CLEAR 

CALL CHAR (34, "0301010101010103") 
CALL VCHAR(1,9,34,272) 

CALL CHAR(SS, "FF8181") 

CALL 
CALL 
CALL 
CALL | . 50, 
CALL HCHAR(23,31,48) 
FOR J=9 TO 14 

CALL COLOR (J,9,1) 


8650 


87350 NEXT J 


; CALL CHAR (96, "FFFFFFFFFFFFFFFF") 


740 U=$1/SUP 





8750 
9740 
8770 
8785 
8790 
agi 


2 C=97 


FOR X=0 TO 20 
H=BiX)xU 

REM HH=NOMERE DE 
HH=INT CH) 

D=INT ((H-HH)+#9+0,5) 
IF HHE=Q THEN 8825 


CARREAUX ENTIERS 
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9810 CALL VCHAR(23-HH, X+10,96,HH) 


8825 IF D=0 THEN 887û 


YÉSSEGS C'FFPEFFFEFFPRERFRER", 1, 2#D) 


8845 
8850 
8860 


CALL CHAR(C, L#) 


C=C+i1 
MEXT X 
EU=1/U 
Gaû ss Tab ss 


T=T+A(1)"2 


=S+A(T):: 
B604 MES /TOTAL :: 
8955 
Pa 

g9sûé 
FLÉY 


8708 


5 
BTI10,5)SIZE (4) : USING 
DISFLAY AT(12,1)S12 


Len 
ET À D ET 
PLEY AT(CIZ,ZTISIZE(Aial 


de 
agi DISFLÉY 


H 


5 ING 


ATIZ, LISIZE (SN USING CHA. # 


CSLL CHAR ÇIAN, MOIS 08901010101000C 


Catalogue parlé sur 
les cassettes 


On entend très bien, avec le haut- 
parleur du téléviseur, défiler tout ce 


qu'il y a sur les cassettes. Par contre, 


sauf à posséder le catalogue précis 
du contenu, il est impossible de sa- 
voir quel programme vous êtes en 
train de charger. Et ce catalogue a 
une fâcheuse tendance à disparaf- 
ire. 


Pour se prémunir contre cela, faites 
précéder vos programmes ou fichiers 
sur cassette d’une annonce sonore 


Suite de la page 60 


1980 REM REDEFINITION DES CODES ASCII DES CA 
RACTERES AH, IMMO RU 

1990 CALL CHAR(SS, "OUSBAAAATEAAAAEA") 
2000 CALL CHPR(SE, "O0446C5454444444") 
2010 CALL CHAR(S7, "O0ALABASAACATHA") 
2020 CELL CHAR(3E, "ODAAAAAAAGAAAEZE") 
030 CALL CHAR(A0, "OOHAAAAATEHAA44A") 
040 CALL CHBR(AL, "0078444478504844") 
2050 CALL CHAR(42, "OOTCAMAAAAAATC") 
2040 CALL CHARUAZ, *0038101010101038") 
2070 CALL CHARUAA,"ODAAECSASA4A4GgA") 
2080 REM COULEUR DES CARACTERES 

2090 CALL COLOR(1,9,8) 

2190 CALL COLOR(2, 13,8) 


2 
2 
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CALL VCHBR(2T-HH, X+16, C0) 


FOR I=i TO TOTAL :3 
& 4% NEXT I 
MC=ME SON 
E=SOR{TSTOTAL-S"4) /TOTAL :: 


DISPLAY ATI10,12S8I2/E (2): s* 
HH. He MC 
ZEX2)3"Ezt se DIS 
HE. H'sEC OO IF 


ATIZ2,1)SIIE (6) I USING "HA. 


8941 CALL 


9 FOR 


G8090808090000C060000000000000720808 01010 
40908000 QOBOLOAUrUSOGUSUSUUUSOUUTULULR 


MAGNIFY (3) 
50 CALL SPRITE(#1,140, 16,179, 66+8#MC) 
I=1 TO 20 :: 


NEXT I 


3970 CALL COLOR(#I, 1) 


9 FOR I=i 


T0 20 ss INEX 
59. DISPLAY AT(24,1)SI12E (6) 


TI 
): "SUITE?" 


CALL KEY(0,C,E) 


g010 
5900 
FOR 
À 
9905 


8506 
VTTA 


GOTO 
CALL 
EC<E#ZG 
DER Dis 
GOTCO 


| «en £ TT 


GOTO 7637 
3996 

INPUT "QUELLE FICHE? ":NUMFICHE 
NUMF ICHE< 1 

INPUT #2,REC 0: TOTAL 


7 IF E70 THEN 9806 
8950 

CLEBR 5: 

=5 T0 7 3: 


L. DELSGPRITE(ALLD)S: 
COLOR ; 


IF NUMFICHES=TOTSL THEN 10670 


LOS BRTAT 


LOU 
LISE 


10070 RETURN 


du genre de : Programme du jeu de 


l'alphabet”. Il vous faut positionner la 


bande à l'endroit où va commencer 


l'enregistrement, puis débrancher la 
fiche micro du câble de liaison entre 
l'ordinateur. 


le magnétophone et 
Mettez alors le magnétophone en po- 
siion Enregistrement” (Record) et 
faites votre annonce sonore. 


Une fois cette annonce faite, arrêtez 
le magnétophone, rebranchez la fiche 
micro, et vous pouvez procéder nor- 
malement à l'enregistrement de votre 
programme. 


Lorsqu’ensuite vous recherchez ce 


211 REM AFFICHAGE DES CARACTERES 
2120 CALL HCHAR(2, 18,40) 

2130 CALL HEHAR(S, 19,35) 

2140 CALL HCHAR(S, 21,38) 

2150 CALL HCHAR(3, 23,37) 

2149 CALL HCHAR(4,20,81) 

2170 CALL HCHARIA, 22,42) 

2180 CALL HCHAREA, 24,43) 

2190 CALL HCHARIS, 25, 38) 

2200 CALL HCHAR(E, 26, 44) 

2210 GUTO 330 

2220 REM INDICATION DE L'OCTAVE: POSITION DE 
L'INDEX (*) 

2230 CALL HCHAR(B,2,32, 12) 

2249 CALL HCHAR(S, 24249, 112) 

2250 RETURN 


NUMERO 


THICVY CT AANET 
INEXTISTENT 


programme sur la bande, vous 
n'avez qu'à lire les annonces sonores 
précédant chaque programme pour 


: le retrouver rapidement. Un autre 


truc consiste, une fois le programme 
enregistré, à compléter l'annonce par 
une information telle que : Le pro- 


chain programme se trouve à (nu- 


méro de compteur de la fin du pro- 
gramme)”. De la sorte, lors d’une 
recherche, vous savez jusqu'où doit 
se faire le défilement rapide suivant. 


Les cassettes de ”99” contiennent 


toutes des annonces sonores, afin de 
vous faciliter le chargement des pro- 
grammes. 


2240 REM OBTENTION DU SON ET ENDICATION DE L 
A TOUCHE PRESSEE {PAUES): 

2270 REM TOUCHES BLANCHES 

2280 CALL SOUND{-300,F1€1,9),2,F2I,1),6) 
2290 CALL HCHAR(20, K1, 128) 

2309 GOTO 1220 

2310 REM TOUCHES NOIRES | 

2320 CALL SOUND(-340,F141,91,2,F2U1, 3,8) 
2330 CALL HCHARI1S, 12, 120) 

2349 CALL HCHAR(1S, 241, 121) 

2350 6010 1220 

2340 REM EFFACEMENT DES PAVES SUR LES TOUCHE 
5 BLANCHES ET NOIRES 

2370 CALL HCHAR{20, 11,97) 

2380 CALL HCHAR(1S, 2, 99,2) 

2390 E0TO 1240 





99 Magazine s'adresse... 


… aux débutants 


Vous venez d'acquérir un TI-99/4A. Tout est maintenant déballé et installé et vous êtes en train de découvrir 
qu'un ordinateur, ça ne marche pas tout seul... Il existe bien des brochures d'accompagnement, mais elles ne sont pas 
toujours rédigées de façon claire. En outre, le seul renseignement dont vous avez besoin en ce moment ne s’y trouve 
peut-être pas. 


799” vous apporte chaque trimestre de nombreux renseignements, des programmes complets, des exemples. 
Déjà, notre premier numéro comporte d’importants articles d'initiation au Basic ou de présentation de programmes. 


De plus, ”99” édite avec chaque numéro une cassette regroupant tous les programmes du numéro. Vous 
pouvez ainsi utiliser des programmes que vous y avez vus, même si vous n'avez pas complètement compris le listing. 
En effet, vous savez bien utiliser des jeux ou des programmes de gestion de fichiers sans pour autant être capables de 
comprendre intégralement le listing de ces programmes. 

.… aux habitués 


Malgré l'apparition récente du TI-99 sur le marché européen, vous êtes déjà nombreux qui, habitués, maîtrisez 
bien l’un des Basics. Nous analysons pour vous et testons les nouveaux produits, logiciels et matériels. Nous vous 
donnons des idées pour résoudre des problèmes qui vous tracassaient depuis longtemps. 


En étudiant les nombreux programmes que nous vous proposons, vous pourrez perfectionner votre connais- 
sance du Basic simple et du Basic Etendu mais aussi, à partir des prochains numéros, vous initier au Pascal et à 
l’assembleur. Dans pratiquement chaque numéro de 99”. vous trouverez des recettes ou des programmes pour mieux 
programmer et utiliser votre TI-99. 
.. aux experts 


Vous êtes déjà quelques-uns à mériter le titre d'experts. Chacun d'entre vous connaît plus particulièrement un 
langage ou un domaine d'application. 99”, en publiant les écrits d’autres experts, peut vous en apprendre plus, que 
ce soit dans votre domaine de prédilection ou dans d’autres domaines. 


.… à tous ses lecteurs 


Quel que soit votre niveau, vous pouvez avoir des informations, des idées ou des programmes à transmettre 
aux autres. Faites nous les parvenir afin que nous puissions faire partager ce savoir que vous avez acquis. L'idéal est de 
nous envoyer une cassette avec vos programmes et un article dactylographié. N'oubliez pas d'indiquer votre adresse et 


votre numéro de téléphone ! 
(2 )magaze 


BULLETIN D’ABONNEMENT 


Je désire recevoir pour le N° [] de 99 magazine 
[ ]le numéro avec cassette 
[_ ]le numéro sans cassette 
[_] la cassette seule 


Je désire m'abonner pour 4 numéros 
à partir du N° [ ] 
[_ ] avec cassette ADF TIC 
[_] sans cassette 1939.F TIC 


Ces tarifs comprennent l’envoi postal en France Métropolitaine et CEE (voie aérienne exceptée) 
Envoi par avion : nous consulter 


Envoyez ce bon de commande et votre règlement à : 


Editions MEV - 49 rue Lamartine - 78000 Versailles 
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pour mieux eñnotoit 
votre ordinateur et pour 
mieux l'utiliser: 










L'ORDINATEUR 
INDIVIDUEL 


Vous y trouverez: 
l'actualité et les tendances de l'informatique individuelle 
lès bancs d'essais des principaux matériels e des panoramas 
étdes tests comparatifs e le point des grandes manifestations 
internationales e des articles d'initiation e des synthèses 

e des programmes e des interviews “exemplaires” 
e des conseils e des idées + des astuces 


| L'ORDINATEUR INDIVIDUEL, chez votre marchand de journaux 


TI 99/4A.L ORDINATEUR FAMILIAL. 
C’EST FACILE, BRANCHEZ-LE, BRANCHEZ-VOUS. 


Branchez l’Ordinateur Familial de 
Texas Instruments sur votre téléviseur * 
Enfichez le module du programme de 
votre choix, c’est tout. L'Ordinateur 
Familial est prêt à dialoguer avec 
vous.Education, gestion. loisirs.C’est 
dire à quel point les possibilités du 
TI 99/4A sont étendues. Il aide 
l'enfant à apprendre, à se détendre. 
Il aide son papa ou sa maman 
à découvrir |’ informatique, ou à 
gérer facilement la maison. Du 
fichier d’adresses au foot, des envahisseurs de 
l’espace à l’anglais, des maths à à la musique : une 


© 


très vaste bibliothèque de plusieurs 
centaines de programmes tout 
faits (en majorité sous forme de 
modules et en version française). 
Avec ses périphériques en option, 
l’Ordinateur Familial TI 99/4A est 
un véritable ordinateur. Evolutif, il se 


y développe avec les besoins de chacun. 


D'autant plus facilement que le 
T199/4A a un atout majeur, son prix: 
2300Francs environ** | 


D *Prise péritélévision. **Prix couramment pratiqué. 


TExAS 
—— [INSTRUMENTS 





